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IDENTIFICATION 


PRODUCT CODE:  MAINDEC-11-DZLCA-C 

_ PRODUCT NAME:  LC11/LAGO TERMINAL’. TEST 
DATE: JUNE 21,1976 
MAINTAINER: DIAGNOSTIC GROUP EF 


s 


THE INFORMATION IN THIS DOCUMENT IS SUBJECT TQ CHANGE WITHOUT 
NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT SY DIGITAL 
EQUIPMENT CORPORATION. DIGITAL EQUIPMENT CORPORATION ASSUMES 
> tama FOR ANY ERRORS THAT MAY APPEAR IN THIS 


THE SOFTWARE way hea ye IN THIS DOCUMENT IS FURNISHED UNDER A 
ENE AND MAY ONLY BE USED OR COPIED IN ACCORDANCE WITH 
HE TERMS OF Such NICER sf. 


TTAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY 
THe USE OR BE 88 LITY OF ITS SOFTWARE ON EQUISMENT 
T IS NOT SUPPLIED SY DIGITAL. 


COPYRIGHT 1973 ,1975 SY DIGITAL EQUIPMENT CORPORATION 
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NOTE: 


g.3 


é.e 


wntiogec hen A MODIFIED VERSION OF THE TELETYPE DIAGNOSTIC 


RESTRACT 


LA3O TERM STS CONSISTS OF A PACKAGE OF TEST PROGRAMS 
SES 1ahED TQ Test ne Mates UT-OUTPUT LOGIC, THE LA30 PRINTER 
KEYBOARD. ALL TESTS aft INCLUDED IN ONE OBJECT TAPE. 


THE AVAILABLE TEST PROGRAMS ARE LISTED HERE IN NUMERICAL ORDER: 
PRGO-COMBINED Sheard LOGIC TESTS 


“PRINTER EXERCISER 
PREW-CLOCK x oat ROUT 
PRGS-CLOCK ADJUSTMENT ROUT 
PRGG-MAINTENANCE MODE SINGLE CHARACTER DATA TEST. 
PRG7-MAINTENANCE MODE he BINARY COUNT PATTERN TEST. 
PRGLO-ROLL-UP DISPLAY TE 
PRG11- “NON-PRI INTING CHARACTER TEST 


PRGI2-WORST C 
PReis-tast chamac Tea VISIBILITY 


REQUIREMENTS 


A. PDP-11.20 SYSTEM. (4 K CORE). 
B. LCll aT ERE BEAL SO TERMINAL 
C. HIGH SPEED READER 

THE LC11 MUST HAVE STANDARD TELETYPE ADDRESSES. REFER TO 


SECTION 7.3 IF THE LC11 DOES NOT HAVE STANORRD PERIPHERAL 
ADDRESSES. 


THIS PROGRAM USES LOCATION 00200 THROUGH 12132. 
LOADING PROCEDURE 
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THIS FROGRAM’S OBJECT TAPE IS 


shies ABS LOADER IS USED TO LOAD 


iy RF IN SSSLUTE FORMAT. 
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4, USE PROCEDURE 


4.1 LC11 IDENTIFICATION 


THIS TEST DIAGNOSTIC ASSUMES THE LAZO IS AN 80 COLUMN KSR3S 
AND LOCATION 000224 IS SET TO 000001. 


4.2 PRGO USE PROCEDURE 


a. ¢ CHECK POWER SHITCH IS “ON” 
TART 
- 3% $F 18,0000 of aT RE Renan HALT. 
E. SET ANY DESIRED SR OPTIONS. NORMAL RUN IS WITH SR = COOOCO. 
THIS PROGRAM’S SR OPTIONS ARE: 

SRIS HALT AT END OF ROUTINE 


— --e- 
(O00 ~IPUT-EGsTOr GBOIPAL Ow 2 


SR14 ENTER SCOPE re AFTER ERROR 
a, pe aa TION 


SR10 PR 
ok SELEC CT ROUTINE 
R& THROUGH ROUTINE TO BE SELECTED. 
SECTION 7.2 GIVES A COMPLETE EXPLANATION OF SR hey 
F. PRESS CONTINUE. THE PROGRAM IS EXECUTED AND STOPS A 
PROGRAM END HALT WHEN COMPLETED PROVIDED NO ERRORS dccuR. 
G. REFER TO SECTION &. IF ERRORS OCCU 
A DESCRIPTION OF THIS PROGRAM IS GIVEN IN SECTION 9.1 
EXECUTION TIME: 


ONE NORMAL ERROR FREE PASS TAKES APPROXIMATELY 4 MINUTES. 


> --6—-) +6-+6 -<0-+ 6 > +6---- p-<0-* > <> © & +) -->-* po §—= 9 -< & ~~ §-< 9 §-< § — + Ho © H-< H-< + *—-~- 9 -< » - 9-—< p-- 5 
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4.3 PRG1 USE PROCEDURE 


Q. SET LAO TO ON 

:: eet sh TO CO00DL PRESS agrart 

e SET ANY DESIRED SR OPTIONS. "WoRMAL RUN IS WITH SR = OOCOOO. 
THIS PROGRAM’S SR OPTIONS ARE: 


+ 
ut 


SR1S HALT AT END OF ROUTINE 
SRi0 LOOP PROGRAM 
SR9 SELECT ROUTINE 


SR6& THROUGH SRO = NUMBER. OF ROUTINE TO BE SELECTED. 
SECTION 7.2 GIVES A COMPLETE EXPLANATION OF SR OPTIONS. 
F. PRESS ie FT THE LA3SO WILL BE fe Tie 
TH GRAM WILL STOP AT PROGRAM WHEN COMPLETED. 
ERROR DETECTION IS BY VISUAL INSPECTION” OF DISPLAY. 
A DESCRIPTION OF THIS PROGRAM IS GIVEN IN SECTION 8.2 


EXECUTION TIME: 


eS kk A kh A a quo 9 <0 Gufs fufun pe gusgesgus 
C1000 GOP UTE Loft C20 tD JOP UTE Conus Coub aD bar 


171 
i7e ONE NORMAL PASS TAKES APPROXIMATELY 12 MINUTES. 

174 

175 4.4 PRG2 USE PROCEDURE - 

177 : 

3 SEL LEaE os 

180 a SET SR ch To $5 pue00, PRESS STAR 

e Ss Feats Tee ar Ste, RRA TT Oe 
iss HIS BROGRAR OB OP ae ts E: - 
185 SRIS HALT AT END OF ROUTINE 

186 R10 OOP PROGRAM 

187 SR9 ELECT ROUTINE 

igs SR& THROUGH SRO = NUMBER OF ROUTINE TO BE SELECTED. 

130 SECTION 7.2 GIVES A COMPLETE EXPLANATION OF SR OPTIONS. 

13 F. PRESS CONTINUE. FOLLOW TYPED INSTRUCTIONS. WHEN DONE 

133 PROGRAM STOPS AT PROGRAM END HALT. 

195 A DESCRIPTION OF THIS PROGRAM IS GIVEN IN SECTION 8.5 


G01 


MAIN, MACYL1 271732) L3-MAY-7& 13:28 PAGE 6 
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"y 
i> 
198 
198 
300 
51 | 
393 4.5  _PRG3 USE PROCEDURE 
SD aD A eR oe ue cnn 
594 
205 g. SET LA3p Me 
5 Reno ROO $ one00 PRESS START 
5: THE PROGRAM TYPES “TYPE IN DATA” 
E. KEY IN NY FIVE CHARACTERS 10 BE TYP 
* KEY IN EITHE OUT FOR FULL SPEED TYPING, OR ANY 
CHARAC RANDOM STALLS BETWEEN CHARACTERS 
G. THE PROGRAM TYPES CONTINUOUSLY LINES CONTAINING THE 


FIVE CHARACTERS SPECIFIED, UNTIL SRIS IS SET TO Al. aT 
THAT POINT THE PROGRAM GOES TO STEP E. 


rurururururufrurufurufufru 
Fo a gt aed ae 
NMOnNT U1 L£OITU--OwW 


oa, A DESCRIPTION OF THIS PROGRAM IS GIVEN IN SECTION 8.8 


ede a 


220 | * 
221 4.6 PRGY USE PROCEDURE 
ase i iamnmn eerie La 5 es | . 
: PRGY IS USED AS AN AID IN ADJUSTING THE TRANSMITTER CLOCK, 
225 . AND IN OBSERVING THE DATA BITS AS THEY ARE SHIFTED OUT OF THE 
eeb TRANSMITTER BUFFER. A SCOPE IS REQUIRED. | 
eee TO ADJUST THE PUNCH CLOCK PROCEED AS FOLLOWS: 
A. 
= & WP OP EECA Plecs srr 
’ SET ANY Re Ta N F OF SR 
P = ee id oy i DELAY TWEEN PUNCH COMMANDS 
SECONDS SELECTED 
HOULE NG ENOUGH eR te ENTIRE eae OPERA TION TO 
COMPLETE. Bo SUGGESTED STARTING | NUMBER 1S 177 
F. PRESS CONTINUE. CONTI INUOUSLY. FIRST IT 


es Sig SG BEE Spee. SPECIFIED’ IN SR 


H BUFFER AGAIN 
G. SET UP A SCOPE AND DISPLAY THE PUNCH CLOCK PULSES. AOJUST 
THE PUNCH CLOCK ACCORDING TO SPECIFICATIONS. 


A DESCRIPTION OF THIS PROGRAM IS GIVEN IN SECTION 8.10 
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PRGS USE PROCEDURE 


IN-OBSERVING THE DATA alts AS THEY ARE SHIFTED INTO THE RECEIVER 
BUFFER. A SCOPE IS REQUIRE 


THE PROGRAM MAKES USE OF THE TRANSMIT MAINTENANCE BIT FEATURE IN ORDER 
TO CAUSE THE DATA OQUTPUTTED TO THE TRANSMITTER BUFFER TO BE 
SHIFTED INTO HE RECEIVER BUFFER. 


TO ADJUST THE RECEIVER CLOCK PROCEED AS FOLLOWS: 


LOAD SOU RS 000200 

SET SR TQ eae E aii ane 

PROGRAM STOPS AT COMM 

SET ANY DESIRED ASCII ae Hh OF SR. 

SET NUMBER OF 1 Ne Se eg o BELAY "BETWEEN TRANSMIT COMMANDS IN 

RIGH SR. THE NUMBER SHOULD BE LONG ENOUGH FOR 

THE pire, Ieveiar nce "OPERATION 70 COMPLETE. A SUGGESTED STARTING 


N 

F. PRESS CONTINUE. THE PROGRAM RUNS CONTINUOUSLY. FIRST IT LOADS THE 
TRANSMITTER BUFFER WITH THE CHARACTER IN SR LEFT, AND THEN DELAYS 
THE NUMBER OF MILLISECONDS SPECIFIED IN SR RIGHT. AS THE DATA BITS 
ARE SHIFTED OUT OF THE TRANSMITTER es FFER, THE RECEIVER CLOCK STARTS, 
AND THE DATA BITS. ARE SHIFTED INTO THE RECEIVER T THE E 
OF THE DELAY THE PROGRAM MOVES THE RECEIVER BUFFER RBNTENTS TO RES O, 
AND ISSUES S RESET INSTRUCTIONS. IN ORDER TO MAKE THE RECEIVER 
BUFFER CONTENTS. V VISIBLE IN THE RIGHT HALF OF THE DATA LIGHTS. 

G. SET UP A SCOPE AND DISPLAY THE RECEIVER CLOCK PULSES. ADJUST THE 
BECEIVER CLOCK ACCORDING TO SPECIFICATIONS. 


A DESCRIPTION OF THIS PROGRAM IS GIVEN IN SECTION 8.11 


MOOWD 


101 
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281 
282 
283 
294 4.9 PRG& USE PROCEDURE 
a A ee ee ee ee 
296 
287 9. LOAD ADRESS 000200. 
298 8. SET SR TO OO0006. PRESS STAR 
239 C. THE PROGRAM STOPS AT COMMON NALT. 
230 D. SET CODE FOR CHARACTER TO BE TESTED IN THE LEFT HALF OF THE 
Be Es ESE GON Te ie neUr ery ee EMT el Te eer 
3 cere ONTRINS er SAME SEER CTER HEN ie RECEIVE DONE BI 
3 F. REFER fo” Se TION 6. ERRORS, IF ERRORS OCCUR. aaa 
38 @ DESCRIPTION OF THIS PROGRAM IS GIVEN IN SECTION 8.12 
300 EXECUTION TIME: 
302 CONTINUOUSLY RUNNING PROGRAM. 
204 
308 4.9 PRG7 USE PROCEDURE 
307 
308 A. LOAD ADDRESS Ood200. 
309 | 8. EET SR TO 00007. PRESS STAR 
310 C. THE FT RUBUSL Y, THE SPECIAL BINARY COUNT 
311 . PATERN IS OUTPLITTED TO THE OUTPUT . EACH TIME 
312 THE RECEIVE DONE BIT BECOMES SET THE CHARACTER IN THE 
313 RECET FER IS CHECKED TO SEE THAT TCHES T 
314 REVIOUSLY OUTPUTTED CHARACTER. THE PROGRAM STALLS 
: 315 Re aNd ONLY Y Be TWEEN CHARACTERS. TO RUN AT FULL SPEED, SET 
1 17 D. REFER TO SECTION 6. ERRORS, IF ERRORS OCCUR. 
313 Q DESCRIPTION OF THIS PROGRAM IS GIVEN IN SECTION 9.13 
$2} EXECUTION TIME: 
323 CONTINUOUSLY RUNNING PROGRAM. 
3e6 4.19  PRGIO USER PROCEDURE 
327 
328 A. LOAD ADDRESS 000200. 
363 g. SET R TO 090910. repress START 
331 TER oh NATE-LINES: OF TS 1S FILLED METH A LINE 
332 n3 eae TEBE ERENT OF Foe CH CHA TER any Ts LOWED BY THE CHARACTER. 
333 D. REFER TO SECTION &. ERRORS, IF ERRORS OCCUR 


A DESCRIPTION OF THIS PROGRAM IS GIVEN IN SECTION 8.14 


JOl 
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336 

337 

338 

339 4.11  PRG11 USER PROCEDURE 

340 SS eee 

341 

345 a py RT ee tT: PRESS START. 

4 = on sr ne RUNS CONTI NOOUELY. AN A IS PRINTED FOLLOWED BY 
345 AN ATTEMPT TO PRINT ALL NON-PRINTING CHARACTERS. THIS 
346 SEQUENCE IS REPEATED FOR A FULL LINE 
347 OD. REFER TO SECTION 6. ERRORS, F ERRORS OCCUR. 
$43 | EXECUTION TIME: 
$31 | CONTINUOUSLY RUNNING PROGRAM. 

353 4.12  PRGL2 USER PROCEDURE 

355 

356 a. LOAD ADDRESS goN200, 

357 8. SET SR TO 000012. PRESS START. 

358 C. THIS PROGRAM WAS WRITTEN TO SERVE AS A WORST CASE NOISE 
359 TEST IF A WORST CASE PATTERN IS EVER ESTABLISHED. THE 
360 PROGRAM ACCEPTS UP TO 80 CHARACTERS FROM THE KEYSOARD 
361 OR UNTIL A RUBOUT IS DETECTED. AT THAT POINT THE PROGRAM 
362 CONTINUOUSLY ECHOS THE CHARACTER STRING. SWITCH 15 
363 | SELECTS NEW CHARACTER STRIN 

368 | D. REFER TO SECTION 6. ERRORS, IF ERRORS OCCUR. 

368 | EXECUTION TIME: 

368 PROGRAM RUNS CONTINUOUSLY. 

370 4.13  PRG13 USER PROCEDURE 

372 

373 A. LOAD RODRESS 909200. 

374 8. CET SR TO 000013. PRESS STAR 

375 ¢. THIS Test VERIFIES THE "LAST bHaRACTER” VISIBILITY FEATURE 
37 OF THe 830 PRINT HEAD BY WAITING TWO SECONDS BETWEEN 
378 D. REFER TO SECTION 6. ERRORS, IF ERRORS ARE DETECTED. 

380 EXECUTION TIME: 

382 PROGRAM RUNS CONTINUOUSLY. 


304. : 5. - PROGRAM AND/OR OPERATOR ACTION 


MAIN. 
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387 
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5.1 


6.1 


NORMAL HALTS 


LOC 001502 


LOC 0016le 


Loc 002120 


ERRORS 


LOC 001514 


LOC 001574 


LOC 001534 


KO1 


THe Progra M Is AuRIT INE , USER INTERVENTION, 


INSTRUCTION STMT SENERATED. THE CALL 10 THE 
COMMON HALT. 


END OF ROUTINE HALT. THIS HALT OCCURS AT THE 
ND OF A TEST ROUTINE IF SRIS | S SET To A 
to apROCEED PRESS CONTINUE. PROGRAMS PReO. 
PRGL AND PRG2 USE THE ROUTINE END 


PROGRAM END HALT. THIS HALT NORMALLY OCCURS AT 
THE END OF PROGRAMS PRGO, PRG! AND UNLESS 
THE LOOP PROGRAM OPTION {tS SET. (SRI1O) 


UNCONDITIONAL ERROR HALT. DATA A hans CONTAIN 
ADDRESS OF INSTRUCTION THAT GENERATED THE 
ERROR CALL. REFER TO PROGRAM LISTING. 


CONDITIONAL ERROR HALT. THIS CALL WILL 
WAYS OCCUR, UNLESS SR14Y IS SET TO A 1 
(SCOPE MODE} AND THE ERROR HAS OCCURRED 
AT LEAST ONCE. DATA LIGHTS CONTAIN ADDRESS OF 
INSTRUCTION THAT RENERAY ED ERROR CALL. 
REFER TO PROGRAM LISTING. 


DATA ERROR HALT. OCCURS WHEN A PROGRAM OR 
TS CHECKING DATA FINDS THAT THE EXPEC TED 
a. THE RECEIVED DATA DO NOT AGREE. THE LEFT 
# La aM yp tlhe CONTAIN THE EXPECTED 
e BIT 08 RIGHT HALF CONTAINS THE 
RE VED. e BIT "BaTA. 
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6.2 


NON RECOVERABLE ERROR HALTS 


BNOY-OECOERLE SOR OAL MIL, 008,47 IME ROORESSES aT 
IS TRANSFERRED TO AN UNEXPECTED AREA BETWEEN so0000 AND 000176. 


000002 pearn $e AREA 

000006 ERROR TRAP 

000012 Rear ee INSTRUCTION TRAP 

000016 DEBUG TRAP 

00002e 

000026 POWER FAIL TRAP 

O00040 THROUGH 000176 SYSTEM SOFTWARE AND INTERRUPT VECTOR AREA, 
EXCEPT FOR KL11 INTERRUPT VECTORS. 


TO FIND OUT WHERE THE PROGRAM WAS AT THE TIME THE FAILURE OCCURRED, 
PERFORM THE FOLLOWING STEPS: 


XAMINE THE CONTENTS OF REGISTER 6& (ADDRESS 177706). 
way R THE CONTENTS OF REGISTER & TO THE SR, LOAD ADDRRESS, 


ND EXAMINE. 

THE DATA SHOWN IN A DATA LIGHTS IS THE VALUE OF THE PC 
WHEN THE FAILURE OCCURRED. 

LOCATE IN THE PROGRAM LISTING THE DISPLAYED PC VALUE. 

THE INSTRUCTION THAT IMMEDIATELY PRECEDES THE ONE REFERENCED 
BY THE DISPLAYED PC VALUE IS THE INSTRUCTION THAT WAS BEING 
EXECUTED GHEN THE FAILURE OCCURRED. 


A NON-RECOVERABLE woe HALT FAILURE IS AN ABNORMAL CONDITION 


mo oo wD 


IN ORDER TO TEST THE Q 
RECOVERABLE ERROR ARE NOT WITHIN THE SCOPE OF THIS PROGRAM. 


MO1 
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473 

474 é 

475 7, MISCELLANEOUS 

ee I are a as oo) eeeeeenen 

47? 

478 7.1 SR OPTIONS 

Be ee ae ements hee 

#81 THE STANDARD SR OPTIONS ARE DESCRIBED HERE. 

483 SRIS - HALT AT END OF ROUTINE. FOR THESE PROGRAMS CONSISTING 
484 | OF A SET OF SEPARATE TEST ROUTINES, SRIS SET 19 Al 
48S CAUSES THE PROGRAM TO HALT UPON EOMPLETTON N OF THE 

4Se ROUTINE CURRENTLY BEING EXECUTED. THREE POSSIBLE USES 
487 OF THIS OPTION ARE: 

189 7 A. TO STEP THROUGH A PROGRAM ONE ROUTINE AT A TIME. 
49] B. WHEN AN UBrEDICTED FAILURE HAS OCCURRED (BLOW 

4g2 UP. HA uP? VANCE T HROUGH THE PROGRAM ONE 
493 ROUTINE AT A TIME UNTIL THE FAILURE OCCURS. THE 
494 -- ROUTINE FOLLOWING THE LAST IDENTIFIED ROUTINE WOULD 
135 BE THE FAILING ROUTINE. 

497 C. WHEN A PROGRAM IS IN EXECUTION, TO DETERMINE HOW 
138 FAR THE PROGRAM HAS PROGRESSED. 

500 SR14 - SCOPE. THIS OPTION IS USED ONLY BY PRGO. THE OPTION 
c0l CAUSES THE PROGRAM TO BYPASS ERROR HALTS. AND TO STAY 
502 : IN THE FAILING ROUTINE. THIS OPTI ION mane 30 BECOME 
503 : ACTIVE UNTIL AN ERROR OCCUR S. SR14 MUST BE ON BEFORE 


: THE ERROR OCCURS, OR AT LEAST IT nusT BE SET BEFORE 
PRESSING CONTINUE AFTER AN ERROR HALT 


-_-e_ —e—_—_ —-— ——- — so! = a <_< 
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NOL. 


(7.1 CONT'D) 


SR13 - INHIBIT ITERATION_COUNT. THIS OPTION IS USED By PRGO, 
PR PRG3. THESE PROGRAMS CONSIST OF -A SET OF 
H_OF SPECIFIES THE NUMB 


EACH ROUTINE. TWO POSSIBLE USES OF THIS OPTION ARE: 


A. QUICK PASS. THE USER MAY ELECT TO RUN THROUGH A 
PROGRAM QUICKLY TO FIND OUT IF ANY FAILURES SHOW 
IMMEDIATELY. A SUCCESSFUL QUICK PASS HOWEVER DOES 
NOT GUARANTEE THAT THE SAME PROGRAM WILL RUN ERROR- 
FREE WHEN PERFORMING A NORMAL ITERATION pase. 


8. ate IP ne FAILING ROUTINE. WHEN A ROUTI NE _HAS 
ETECTE Q SOLID FAILURE. THE ERROR WILL BE REPORTED 
TO GO ON TO THE NEXT ROU TINE, THE USER 
| cat INIT} ITERATION IT WILL NECESSARY 
Kaus THE PROGRAM TO éT9 T THE END OF THe Y ROUTINE 


BY SETTING SR1IS TO Al. OTHERWISE THE PROGRAM 
WOULD QUICKLY RUN THROUGH THE NEXT ROUTINE(S) ALSO. 


SR10 - LOOP PROGRAM. THIS OPTSZON IS USED 4 PROGRAMS 
Sal TING SR1O T l 
U EAT ITSELF UPON COMPLETION, 
INSTEAD OF STOPPING aT PROGRAM END HALT. 
SRQ - SELECT ROUTINE. THIS OPTION IS USED BY PROGRAMS 
AND PR THE U MAY ELECT TO RUN 


ONLY’ ONE tg ae ROUTINE BY SETTING 
SR& THROUGH SRO TO THE NU 





ALTO NU 
OCCUR. THE SELECT ROUTINE OPTION WILL BE HONORED BY 
THE PROGRAM UPON COMPLETION OF THE CURRENT ROUTINE, OR 
UPON STARTING THE PROGRAM 


SR8 - DISABLE STALL MODE AND RUN FULL SPEED. USED BY PRO- 
GRAM PRG1O. THIS PROGRAM OPERATES NORMALLY IN 
STALL MODE (TESTS OR EXER CISES ARE NOT FULL. 
SPEED, BUT RANDOM DURATION DELAYS ARE INTRODUCED). 
TTING SRS TO A 1 CAUSE THE PROGRAM TO PERFORM THEIR 
TESTS A FULL SPEED. 


~~ 
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B02 


TESTING LC11 AT NON-STANDARD ADDRESSES AND/OR VECTORS 


THIS PROGRAM CAN TEST A LC11 ASSIGNED TO NON-STANDARD 
AODRESSES AND VECTORS PROVIDED THESE ADDRESSES ARE PROVIDED 


TO THE PROGRAM AS FOLLOWS: 


i EOCRTIONSS REFER 10° 


LOCATION FROM STANDARD 


= 
aw 
ir 


sleletatatatey 
> =» »- b= 9 <9 


8B. PROCEED 


g. DESCRIPTION 


a es 


NOTE: THERE er oR 5 UU 


PRGO PROGRAM DESCRIPTION 


8.1 


PRGO TESTS THE INPUT AND OUTPUT LOGIC IN ONE PROGRAM. 
Meo: uP thhoerne TQ REFERENCE THE REROER“KYBO STATUS WORD < 
Tests, ad 98 3 REFERENCE THE READER’KYSD BUFFER (TKS? 
TESTS ag PS TO REFERENCE THE PRINTER/PUNCH STATUS WORD (TPS) 


RTNC 
RTNI 
RTNe 
RTN3 
RTNY 
RTNS 
(8.1 CONT'D) 


RINES | ¢ 


RTN3O 


ue HOUT 


TO USE PROGRAM, OR 


ING THE PR 
ROGRAM LISTI 


CHANGE 


TO NON-STANDARD 


RECEIVER CSR ADDRESS 
TRE ANG BUFFER ADDRESS 


2 DID yee) 


LY WRITTEN TO OD 


ash 
EADER /K AS RECETY 


CSR_ADD 
Behe a ADDRESS 
Mra 


THE FOLLOWING 


RESS 


Y LEVEL 
OR 


ROORESS 
ORITY LEVEL 


TELETYPE. 


SE A 
ER AND PUNCH 


MEM aBinity 13 REFERENCE THE PRINTER/PUNCH BUFFER (TPS) 


CLEAR THE READER /K 
SIT CAN GE ST EARES titi RESET INSTRUCTION. 


rests. Aa. 


TESTS THAT RESET SET 
READY GIT CAN BE RE 


TY TO SET 
READER “K 


“8 
EES AULT DARE 8 


T 
R 


HE 
EL 


I 


I 


LE 
CRN 
PUNC 
aL 


AR 
aH RE 


THE PUNCH 
CLEARED W 
READY BIT, 


Hy Reger eT TON, 
AND T THE 


COe 
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$03 RIN31 TESTS THAT PUNCH READY IS CLEARED BY LOADING THE PUNCH BUFFER. 
p10 RTN32 TESTS THAT BYTE LOADING PUNCH BUFFER+1 DOES NOT CLEAR THE 
Pi RTN33. CHECKS THAT THE PUNCH SECOMES READY NO LATER THAN 200 MSECS 
§13 AFTER 8 FE R LOAD. 
614 RTNSY CHECKS PUNCH READY BIT CAN CAUSE INTERRUPT. IF THE INTERRUPT 
S15 1S SERVICED, IT eo HAVE OCCURRED AT THE CORRECT VECT Of 
S16 RTN3S TESTS T CAUSE AN INTERAL THE 
ei PROCESSOR \. Q :" MERI ORT TS San” THE READER’S TETERRUPT Be ouest 
Ps RTN3S : “THAT PUNCH READY CAUSES AN INTERRUPT WHEN THE PROCESSOR 
est 1S At PRIORITY ONE LEVEL LOWER THAN THE PUNCH INTERRUPT 
S22 RTNYO CHECKS THAT PUNCH READY CAUSES AN INTERRUPT IMMEDIATELY UPON 
23 LOWERING PROCESSOR PRIORITY TO 9. 
B55 
3 | 

? 8.2 PRG! PROGRAM DESCRIPTION 

OOS SoS eens San ae OAC ee te re cee 
£30 PRG! EXERCISES THE PRINTER FUNC TIONS VERIFICATION OF PRINTER 
63) OPERA’ ION IS PERFORMED VISUALLY 8 USER. THE PROGRAM CONTAINS 
$32 29 ROUTINES NUMBERED FROM 00 TO 3418 
635 RTNO § CARRIAGE RETURN TEST. CHECKS THAT CARRIAGE CAN CORRECTLY 
635 RETURN TO PRINT POSITION 0 FROM EVERY OTHER PRINT POSITION. 
= VISUAL DISPLAY IS A WEDGE. 
£30 
635 RTN! | RIGHT MARGIN TEST. THIS ROUTINE oXERIFIES THAT THE RIGHT 
649 MARGIN 1S CORRECTLY SET FOR 80 PRINT POSITIONS. THE TEST 
541 PES 3, CHAR ACTERS. IF THE RIGHT MARGIN IS CORRECTLY SET, 
54 THE YPED ii SHOULD LOOK AS FOLLOWS: 
es , oo-- [ooo + [2+ [2 -- [o-- =] ---- ] -- =] ---- J ---- J ---- [+--+ [+--+ ]---- J ---- J---- J ----] 
ex RTN2 SPACE TEST. get eine Re OF THE LA3O TO SPACE CORRECTLY. 
a PRINT BOSTT TONS, BNO THEN FRSM PRINT POSITION B fo EACH 
545 PRINT POSiT{O Hoh ano PRINTS A SLASH (2). THE TYPEOUT SHOULD ~ 
$50 LOOK AS | 
c5e VSN SNS NSN SNS NVSNSASNASZNS AVS ASV SJNVANS NAVA NVA NS NV ANS NAV SVS NAN NSANVSNVANSNV SANS ETS 
654 


—— a oe eee 


DO0e 
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85 
p24 RTN3 bate ft FEED TEST. deantan 27 aT dor MY 19 Fa SA la PERFORM 4 
3 Sg a D feet WILL r FPPEER AS ofae z NBL PINE BE THEEN 
14) O AND PRINT POSITION 
pps RTN4 SPAC “JEST. C nS, + oa OF THE DISPLAY TO .on TO 
56. POSITIONS i TO HE FIRST LINE TYPED MARKS THE TAB 
$35 POSITIONS. SUBSEQUENT LINES INCREMENT BY ONE SPACE 
PPP | EACH. THE TYPEQUT LOOKS AS FOLLOWS: 
7 / / / 4 4 / / / 
63 / ‘4 / , ae oe 
rae ; 
7} / / / , / / 
S72 | 
&7 / ; / / y / / / - 
575 ~ 
S75 / / / / / / oo 7 : 
576 B: 
&77 / f 3.2 Po Se / / / f 
678 = a Ts 
67S 4 / j / / / / 
§80 (8.2 CONT'D) 
521 
S 
= RTNS TYPES LINE OF CHARACTERS ABC 
s2e5 TNS TYPES LINE OF CHARACTERS DEF 
gos RTN? TYPES LINE OF CHARACTERS GHI 
587 RTNIO TYPES LINE OF CHARACTERS JKL 
Ash} RTN11 TYPES LINE OF CHARACTERS 
683 RTNI] TYPES LINE OF CHARACTERS POR 
530 RTN] TYPES LINE OF CHARACTERS STU 
631 RTNIY TYPES LINE OF CHARACTERS V 
£32 RTNIS TYPES LINE OF CHARACTERS YZ0 
£33 RTN1 TYPES LINE OF CHARACTERS le3 
6S4 RTN] TYPES LINE OF CHARACTE 
css RTN2O TYPES LINE OF CHARACTE 
s3é RTNel TYPES LINE OF KART ERS "8 
557 RTNo2 = TYPES LINE OF CHARACTERS $%8 
eS¢ RTN23 TYPES LINE OF CHARACTERS °() 
63s RTNeCY TYPES LINE OF CHARACT #+, 
700 RTNCS TYPES LINE OF CHARACTERS -./ 
70) RTN2C& TYPES LINE OF CHARACTERS :;< 
re RTNC? TYPES LINE OF idan Tae =)? 
70 RTN3O TYPES LINE OF CHARACTERS th 
704 RTN31 TYPES LINE OF CHARACTERS J]¢ AND LEFT ARROW 
705 RTN32 TYPES 2 LINES OF ALL CHARACTERS. FIRST LINE IS TYPED AT 
FULL SPEED, SECOND LINE IS TYPED WITH RANDOM STALLS. . 


“oS 
Le | 


E0e 
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708 
705 
19 
ci3 8.3 PRG2 PROGRAM DESCRIPTION 
15 
718 PRG? 1S USED TO TEST THE LA30 KEYBOARD. THE PROGRAM CONTAINS 
oie 3 ROUTINES NUMBERED FROM OO TO 
719 RTNO ‘TESTS THAT LC11 CONTROL RESPONDS WHEN USER DEPRESSES 
ret A KEYBOARD KEY. 
é 
733 RIN? ECHO TEST. THE TEST ECHOES ONTO THE TELEPRINTER THE CHARACTER 
733 RECEIVED FROM THE KEYSO 5 WHEN THE TEST S SES_A RUBOUT 
734 CHARACTER THE TEST. is EN b. ote TEST ENABLES THE USER TO 
735 SETERMINE IF ALL PR CAN BE SUCCESSFULLY SENT 
726 TO THE LC11 C a E Foe r SRING SECTIONS (8.3.1, 8.2.2) 
?e DESCRIBE HOW This. SHOULD BE USED TO TEST T rue 
738 SPECIAL CHARACTE 
730 RTNe aay NT TEST. THE OCTAL EQUIVALENT OF ANY CHARACTE 
731 RECEIVED BY THE CONTROL IS TYPED. SENSING A RUBOUT ENDS THE 
? TEST. THIS TEST ENABLES THE USER TO DE TERN] THAT ALL CODES 
> TRCLUDING NON-PRINTRALE CONT OL CODES ARE BEING CORRECTLY 
734 SENT TO THE LC11 CONTROL. 
= 
737 S.4 PRG3 PROGRAM DESCRIPTION 
738 
740 PRG3 IS A PRINTER EXERCISER DESIGNED AS AN Alp IN MAKING LAO 
741 ADJUSTMENTS. THE PROGRAM PERMITS THE USER TO TYPE IN FIVE TEST CHARACTERS 
74D AND ONE FINAL CHARACTER THAT SIGNIFIES WHETHER FULL SPEED OR STALL 
DES THE PROGRAM THEN TYPES LINES CONTAINING THE 

744 FIVE SELECTED CHARACTERS. WHEN THE USER WISHES TO CHAN ST 
74S CHARACTERS SRIS IS SET 19 A 1. THE PROGRAM TERMINATES TYPING THE LINE 
248 BEFORE ACCEPTING NEW DAT 
248 8.5 PRGY PROGRAM DESCRIPTION 

nr 
751 PRG11 IS USED AS AN AID IN ADJUSTING THE TRANSMITTER CLOCK WITH 
752 THE AID OF A SCOPE. THE PROGRAM PERFORMS THE FOLLOWING SEQUENCE: 
754 A. LOAD TRANSMITTER SUFFER WITH ASCII CODE IN SR LEFT. 


755 B. DELAY NUMBER OF MILLISECONDS SET IN SR RIGHT. 
755 C. GO TO STEP A. 


MAIN 


MACYLI 2707 


ozicac. PLL 


7S: 


ISAT SST Ee Bae! 
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8.6 


U 
S 
0 
| 2 SET nen MAINTENANCE 
C 
0 


PRGS PROGRAM DESCRIPTION 


D AS AN AID IN ADJUSTING THE RECEIVER CLOCK. 
REQUIRED. THE PROGRAM PERFORMS THE FOLLUWING SEQUENCE: 


‘Pune NAINTENANC BIT 

UNCH BUFFER CODE IN SR LEFT. 

DELAY NUMBER OF M NILL SECONDS SET IN SR RIGHT. 

MOVE CONTEN TS OF READ BUFFER TO REGISTER OQ. 

ISSUE 5 RESET os Mg BES TO “FIX” READ BUFFER CONTENTS IN 
5G Bae & ae ee 


PRG& PROGRAM DESCRIPTION 


SING THE PUNCH ee BIT FEATURE, PRG13 TAKES THE ane CODE 
ET IN SR LEFT AND USES IT TO CHECK THE ABILITY OF THE CONTROL TO 
UTPUT AND RECEIVE DATA. THE PROGRAM PERFORMS THE FOLLOWING SEQUENCE: 


E 


Aa 
wic> 
oul 

Oo “Ur 
“+ mn 


0 
SE 
L 


—_ MOOODYD DYDD 


. on bi ODE IN S 


BUFFER WITH CO 
iN HEN REALE R pone Sit SeTs. “Sonar BODE IN SR LEFT WITH DATA 
WAIT FOR PUNCH DONE BIT TO SET AND GO TO STEP B. 


PRG7 PROGRAM DESCRIPTION 


CHEE EEE EEE EEE EEE EEE ES 


USING THE PUNCH MAINTENANCE BIT FEATURE PRG1Y USES THE SPECIAL 
INARY COUNT PATTERN TO CHECK ABILITY OF THE CONTROL TO OUTPUT 
RECIEVE DATA. THE PROGRAM PERFORMS THE FOLLOWING STEPS: 


A. INITIALIZE BINARY Nee. “palma 


8 MAINTENAN I 

C. LOAD PUNCH BUFFER WITH SINARY .COUNT CHARACTER. 

D. WHEN READER DONE BIT SETS. COMPARE BINARY CHARACTER WITH DATS 
IN READ BUFFER. HALT IF NOT SAME. 

E. WRIT FOR PUNAH DONE BIT TO SET AND GO TO STEP C 


- .MAIN. 


ao 000000 GD 


eslisTestéslislesiselesisal es) 
b-* b+ b+ b= 8-2 «6 - (CC) 


fw 
*-( DWNCUI£COJTUe-OwWW~) 


co 
mw 


8.9 


8.le 
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PROGRAM 10 DESCRIPTION 


ee or tS 


THE PURPOSE OF THIS TEST WAS TO VERIFY THAT THE VTO& MEMORY HAS 
ROLL-UP CAPABILITIES. THE TEST FUNCTIONS AS FOLLOWS: 


A. A LINE . AND ITS COMPLEMENT . IS DISPLAYED 
B. THIS LINE IS FOLLOWED BY A LINE OF ITS EXACT COMPLEMENT 


THIS PROCEDURE RUNS CONTINUOUSLY. IF SWITCH 15 IS HELD UP 
MOMENTARILY THE ASCII CODE FOR THE CHARACTER IS INCREMENTED 
SY ONE. BY UTILIZING SWITCH 15 IN THIS MANNER, PROGRAM 10 CAN 


TEST THE ROLL-UP CAPIBILITYOF ALL CHARACTERS. 


PROGRAM 11 DESCRIPITION 


a er 
SEE SECTION 4.11 USER PROCEDURE 
PROGRAM le DESCRIPITION 


a ee oo eros 
SEE SECTION 4.12 USER PROCEDURE 
PROGRAM 13 DESCRIPTION 


a ee ce 


SEE SECTION 4.13 USER PROCEDURE 


HO02 
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:KL11 TESTS FOR THE LA3O TERMINAL 
; COPYRIGHT 1971, DIGITAL EQUIPMENT CORP., MAYNARD, MASS. 


; PRGO- COMBINED INPUT-OUTPUT LOGIC TESTS. 
Ree 3 hw y 8 


NT ROUTINE. 
; e SINGLE CHARACTER DATA TEST. 
+ PREIO MAINT +" MODE SPECIAL BINARY COUNT PATTERN DATA TEST. 


TEST 
:PRG11- NON-PRINTING CHARACTER TEST 
:PRGl2- WORST CASE NOISE 

sPRG13- LAST CHARACTER VISIBILITY TEST 

; STANDARD SR SWITCH OPTIONS (SWITCH SET TO Al ) 


SR 15 - HALT AT END OF ROUTINE. 
:SR 14 - SC 


;SR 11 - INHIBIT ITERATION. 
; SR 10 - LOOP PROGRAM. 
sSR 9 - SELECT 


ROUTINE. 
;SR 8 - DISABLE STALL MODE AND RUN FULL SPEED. 
SR6 T HROUGH SR 0 - NUMBER OF ROUTINE TO BE SELECTED. 


wt ;UNASSIGNED TRAP 
MACHER: ar ;SP OVERFLOW, BSUS ERROR TRAP 
om sRESERVED INSTRUCTION TRAP 
+2 ; TRACE TRAP 
HALT 
+2 ; TRAP TO CALL I0X 
HALT 
+e ;POWER FAIL TRAP 
HALT 
EMTINT ;EMT TRAP 
PRTY? 
TRPINT ; TRAP TRAP. SIMILAR TO EMT 
PRTY? 
-REPT 200 
+2 


HALT : TRAPPED TO PREVIOUS ADDRESS. 





. MAIN, 


8380 
831 


884 
88s 
B86 


=} 
= 
5 
8Se 


0.0.0.0.0.0. 00W0 
—- > 6 -* » -- 8+ 6 + 6-—- 6 ~ 8 
200 NOU .£ Gore 


e 


Sel 
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; EQUATE Had 


Ri=%1] 
Re=%e 


EMAL T=EMT+10 


CKS3=EMT+13 


10e 


sHALT SWITCH DEFINITION 


FINITION 
‘BYPASS MANUAL INTERVENTION DEFINITION. 


sPOP THE ene SAME AS TST (6)+ 
sPOP STACK TWICE. SAME AS CMP (6)+,(6)+ 
sPRIORITY LEVEL DEFINITIONS 


JOe2 
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$35 
$36 104014 CKSS=EMT+14 
$37 Me TYPLNS=EMT+16 

- 938 10401 DATHLT=EMT+17 
3393 104020 SAVREG=EMT+20 
3940 l l RSTREG=ENMT+ 4 
aus 1 ni, REARS MT+ 

“ ELAY=TRAP+ 

943 000007 BELL=007 
ace piste Bebe 
34 ni ees BORK BAB OKA e 
34 l2ecb SLKBB=BLOCKA+12e3 
sae 012217 BLOCK2=BLOCKA+114 
a5 012230 BLK2e=BLOCKA+125 
850 Risse ’ LOCKC=BLOCKA+224 
951 12340 LKCC=BLOCKA+235 
Se 0002 .=2 
953 000200 000167 O014le JMP START ;GO TO START OF PROGRAM. 
$s4 001304 .=.+41100 -GET CODE OUT OF VECTOR AREA 
S55 001304 9000000 SPBOT: BOTTOM OF STACK 
956 001308 177560 | TKS: 177560 -LSR 
957 001310 177562 TKB: 177562 ;sLSR BUFFER 
858 O0i3le 177564 TPS: 77564 sLSP CSR 
959 001314 177566 TPB: 177566 -LSP BUFFER 
$60 901316 O00060 TKVTR: 60 *-LSR INTERRUPT VECTOR 
396i 001320 o00e TKLVL: PRTY4 -LSR PRIORI 
3962 OO0l3e2e 000964 TPVTR: 64 -LSP INTERRUPT VECTOR 
$63 001324 O0C200 VL: PRTY4 *LSP PRIOR 
364 001326 O00C001 TTYTYP: Ol sLASO = KSR 
S65 001320 NUM: OPEN sCONTAINS CURRENT PR M 
S66 001332 000000 KSTART: OPEN CURRENT PR = 
967 001334 000000 CURTST: OPEN sCONTAINS ADDR OF CURRENT TEST 
968 001336 000000 RT OPEN CONTAINS C 
963 001340 000000 NXTST: OPEN sCONTAINS ADDR NEXT TEST. 
$70 001342 000000 ICTR: OPEN *CONTAINS CURRENT ITERATION COUNT 
S71 001344 000000 SCOPTR: OPEN *CONTAINS CURRENT SCOPE POINTER. 
972 001346 9000000 PRGID: OPEN sCONTAINS PROGRAM INDICATORS 
$73 001250 O04S36 PRGTAB: PRGO sPRGO START ADDRESS 
974 O0013Se 005764 PRG! PRG! START ADDRESS 
975 001354 O0072% PRG2 PRG START ADDRESS 
$76 O00135& O07546 PRG3 *PRG3 START ADDRESS 
$77 001360 3e PRG4 > PRGY S 
978 001362 007742 PRGS -PRGS START ADDRESS 
979 001364 01003¢ PRGB -PRGS START ADDRESS 
$80 001386 010076 PRG? *PRG7 T ESS 
981 001370 0200 PRG1O sPRG1O START ADD a 
982 001372 010340 PRG11 *NON PRINTING CHAR TEST 
$83 001374 9010500 PRGle sWORST CAS 
ae 001276 010636 PRG13 sLAST CHAR VISIBILITY 


. MAIN, 
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+= b-9—p- 
BOR 
at ttt at 


Re 


>~* b= b= b= = b= p= 0 po pe pe po ho 
NOUI£CWTUe}O 


0 
001472 900000 


EMTTAB: i 
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s POINTER 10 his OUT ROUTI 

‘POINTER TO CHAINED MESSA D ROUTINE 
sPOINTER TO RANDOM STALL ROUTINE 
sPOINTER TO ERROR ROUTINE 


sCOMMON HALT 


sPOINTER TO ERROR HALT ROUTINE. 


;CHARACTER COUNT 
;HOLDS ONE CHARACTER FROM READER. 


. MAIN 


. MACYIL 271732) 
DZLCAC.P11 


001576 


001600 
001604 
001606 
O016le 
001614 


011600 


a 


— ~~ <—-— ——_— — eee 


~ LOe 
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000002 


000002 


177726 
177716 


040000 
177572 


100000 
000002 


175764 
177S24 


177725 


176022 


177560 


; COMMON HALT ROUTINE 
VHLT: MOV a)? 


%6 , 49 ;DEVELOP ADDRESS OF CALLER. 


#2, %0 
sHALT. ADDRESS OF CALL INSTRUCTION 
RTI -IN DATA LIGHTS. 
; UNCONDITIONAL ERROR HALT ROUTINE. 
EHLT: MOV = 6, x0 ;DEVELOP ADDRESS OF CALLER. 
SUB #2, 40 
HALT -HALT. ADDR OF ERROR CALL 


RTI IN DATA LIGHTS. 

:DATA CHECK ROUTINE. 

OTCHK: ¢MPB  CRBUF,CRBUF+1 
DTCHKA : CHARS. 


DTHLT: MOV CRBUF , “0 “MOVE S/B AND WAS CHARS TO 

HALT *DATA ERROR HALT. GOOD CHA 
‘DATA LIGHTS LEFT. 

OTCHKA: RTI ‘LIGHTS RIGHT. EXIT. 

i CONDITIONAL ERROR HALT. 

ERR BIT #SCOPSW, SR sCHECK SCOPE SWITCH. 
BEQ ERRA ‘BRANCH IF NO SCOPE DES 
TST PRGID ; SCOPING WANTED. FIRST ERROR? 
BPL ERRA -NO SCOPE IF FIRST ERR 
RTI -SCOPE EXIT. 

ERRA: BIS HBITIS,PRGID  ;SET ERROR INDICATOR. 
MOV a%6 , 40 ‘DEVELOP CALLER’S ADDRESS. 
SUB #2, 20 
HALT -ERROR HALT. 
RTI ‘EXIT. 

‘ROUTINE END HALT SUBROUTINE. 

SHALT: TST SR :CHECK HALT SWITCH. 
BPL SHLTA *BRANCH IF NO HALT DESIRED. 
MOVB =- RTNNO, XO ; CUR RENT TEST # TO RO. 
HALT ROUTINE END HALT. 

SHLTA: RTS “7 SEX IT. 


; COMPARE aes ae AND RECEIVED 
BRANCH IF SAME. 


AR IN 
BAD CHAR IN DATA 
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002062 


002064 
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001304 


177760 
000014 


177460 
177436 


~ 001350 
“177424: 


001000 


000246 


175626 
177600 
177364 


000222 


177777 


177342 
040000 
177777 
1773le 


100000 
004000 


177264 


177510 


176150 


177430 


17S564e 


177346 


175554 


177320 


177304 
175520 


START: 


INCPRG: 


CRTA: 


-SRSET: 

GETRDY: MOV 
GTRDYA: 
GTRDYB: 


GTRDYC: 


GTRDYD: 
INCRTN: 
CHAINN: 


CHNA: 


CHNAA: 


MOV 
CLR 


MOe 


#SPBOT, “6 
: M MACHER 
SP ANG 

SR. “0 
#177760, “0 
%0, #14 
crTA 
START . 
PRGID 

0, PRGNUM 
IPRGTAB(O) 
KSTART, NXTST 
cL 


“7, GOTST 

GETRDY 

a-1,NXTST 
GTR 


Ay 
PRGIO 


CHNA 
¥SCOPSW, SR 
#-1 SCOPTR 
CHNA 
JSCOPTR, a%6 
#BIT1S, PRGID 
NITRSH, SR 
ICTR 

CHNAA 


47, SHALT 


;SET BOTTOM OF SP STACK. 


(SR) TO RO 

LIMIT (SR) TO BITS 3-0 
;COMPARE (SR) TO PROGRAM LIMIT 
‘VALID PROGRAM NUM 

=NO. INCORRECT PRG SUMBER 
START OVER. 


‘ 

s SAVE PROGRAM NUMBER AT PRGNUM 

G0 re SEL AY kw PROGRAM. 

:SET SR OPTIONS DESIRED 

; ADDR ae ROUTINE TO NXTST 

WARD TO “NEXT” ROUTINE. 
ELECT RUT NS ay hat 
ELECT ROUTINE SWITCH IS SET. 


:GO RUN CURRENT ROUTINE. 
NO. 0, MANUAL RTN BYPASSED. 


) 
-MASK UNDESIRED BITS 
;COMPARE RTNNO TO (RQ) 
:BRANCH IF ROUTINE NOT FOUND YET. 
; GO RUN ROUTINE. 
sNO GO. MANUAL RTN SELECTED BYPASSED. 


" CHECK FOR LAST ROUTINE. 
iB ae INCORRECT ROUTINE SELECTED. 
T OVER. 


TEST ERROR BIT IN PRGID. 

;BRANCH IF ERROR BIT NOT SET. 

sERROR BIT SET. ae FOR SCOPE OPTION. 
; SCOPE SWITCH SET 

CHECK SCOPE ENTRY. ‘POINTER 
BRAN IF ops Md Y - 


T IN PRGID. 
1 HTERRTION SWITCH 


COU 0? 
iN. Shae ru TO TEST ROUTINE 
GO HALT IF HALT SWITCH IS SET 


. MAIN. 


b= 


SahamebheseeaeRes 2 


O—+ b-+ 0 —< & = 6 = b —* 9 p> — + + - — b+ FF 0 2 2 2 0 8 2 2 0 2 2 0 2 0 = 2 = = 2 0 = 0 2 8 9 ph 9 9 fh fp 9 ps 
+b + 6—< & --6—= 0 -- 6 -< }-+ b= b= =< § — § —~ 6 — & + +» — b+ & ~ B- * b- + & — B ~ Fo §- © 9 & — § 2 9 - p- -2 & ps § — + 2 b+ 6 — &-< §-—- D = 9 9 -« 9-2 ><} -+ 9-2 9 — > p= 9 - > 
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> 
**® 


ha 
032767 o¢1000 


177777 
002000 


177210 


177202 
177170 
177166 
177152 
177777 
000001 
177130 
000400 


177104 


001304 
177440 
000002 


000090 
0000ee 


177001 


000002 
000000 
000000 


175472 
177232 


175452 
’ PRGEND: 


17SS46 


CHNB: 


FORWD: 


FORWDA: 
FORWDB: 


GOTST: 


GOTSTA: 
CLEAN: . 


EMTINT: 


EMTA: 


TRPINT: 


N02. 


#SRTSW, SR 
TR 


(5)+, ICTR 
(5)+'SCOPTR 
18 ,C CURTST 


1 SCOPTR 
#1, ICTR 

FORUBA 

RTNNO 


GOTSTA 
#BYPMAN, SR 
GOTSTA 
JCURTST 

#6, MACHER 


#SPBOT , %6 


GTRDYA 
= ~(6) 


“%b 
nes a6 
a6, #22 
EMTA 


ay 
_ #177001, 9%6 


sCHECK SELECT ROUTINE SWITCH 
; SELECT ROUTINE SWITCH SET? 


iL ST T 

-YES. TEST ‘L09p PROGRAM SWITCH. 
-LOOP_ PROGRAM 

-NO. PROGRAM ENO. 


sADDR OF NEXT oe ee TO RS. 

-GET NEXT ROUTINE N 

:GET ADDR OF NEX : "ROUTINE. 
:CHECK IF PROGRAM SCOPE AND I COUNT 
;PARAMETERS. BRANCH IF NOT. 

-GET ITERATION COUNT. 

-GET SCOPE LOOP ENTRY POINTER. 

ADDR OF NOW ron! TEST TO CURTST. 
EXIT FORWD SUBROUTINE. 

FORCE “NO SCOP 

sFORCE I COUNT OF 1 
;CHECK FOR MANUAL RTN. 


‘BRANCH IF NOT MANUAL RIN. 
; MANUAL RTN. BYPASS IT? 


sNO. RUN IT. 
;BYPASS MANUAL ROUTINE. 


;GO RUN TEST. 
sRESET MACHER TRAP. 


;SET UP BOTTOM OF STACK. 


sGET SAVED PC. 
; DECREMENT PC BY e. 


; CHECK THAT eel IS 


: WITHIN TS. 
CALL NOT NITHIN LIMITS. 
sEMT ARG , $ 


sREMOVE 7 MSB. 
FORM EMT RTN ADOR. ° 


;GO TO EMT ROUTINE. 

;GET SAVED PC. 

; DECREMENT PC BY e. - 
sCHECK THAT EMT 


;1S WITHIN LIMITS. 
TRAP CALL NOT IN LIMIT. 


-RSIN. 
O2L 


-0- 
oe 
“we 


*0-*6 -0--0-6 +0-—§ <«6-+§--6 ©-9-<-9 


SAE Sea SERENE SE 


TL D0 --0 +0 +00 +0 + 0-0-0 + 0-0-0 00 +o + 0-90 = 0-0 bb 00 0 00 & 9-0 F000 8 oo 
4 
| 

= 

2» 

1 

neti 
to 
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Hf 


cate patete 
Pee e 


a | ae ) oe ) oe) oe] 


a a 


OAINIMIOoN0I0N 
o 
& 


o 
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176720 


1767Ue 


{76702 


TRPA: 


CHK33: T 
8 


CHK330: 
CHKSS: 


CKASR: 8 
3 


sAvré 


RSTPC: N 
RSTPSW: OPEN 


CHAIN 
s SAVE nS 0 TO 


#2,3%6 
tat 
ge, a6 
sSIT3, TTYTYP 
+4 


#1, ICTR 


4 SUBROUTINE. 


(6)+,SVRPC 
{6)¢ SVRPSW 


Y 4 SU Te. 


(&)+,8STP 
Sage "RSTPSW 


RSTPC, ~(6) 


;TRAP ARG X 2. 
sREMOVE 7 MSE. 
: FORM TRAP RTN ADDR. 


:GO TO TRAP ROUTINE. 
;CHECK FOR 33. 

; BRANCH IF NOT 33. 
;¢2 TO EXIT POINTER 


+ CHEC K F 
;BRANCH IF _NOT 35. 
;+2 1 EXIT POINTER 


sEXIT 
;CHECK FOR ASR TTY. 


; BRANCH IF NOT ASR. 


SXiI 

:POP. STACK YF 

sFORCE I COUNT TOA 1. 
CHAIN TO BYPASS ROUTINE. 


;SAVE PC AND PSW. 
;SAVE REGS 0 - 4 
SIN STACK. 


RESTORE PC AND PSW. 
-EXIT. 


;SAVE PC AND PSW. 


;RESTORE REGS 0 - 4 
sFROM STACK. 


>RESTORE PC AND PSN. 
-EXTT 


MAIN, 


Z 


Do 


0-2} §-<- 6-0 --§~—§ ~§ -- 6 <-69-- 


>- 2 0+ 0 + <0 6 + 0 0 os 9 0 hp 0 po 
PUrururnfruornstrorurrorore 
00D SIP £ LIfue-() 


8 


———— ee OS ee ee 


MRACYLI 27732) 
OZLCRC. Pil 


13-MAY=7S 13:28 PAGE 28 


176450 
008000 
17442 
0S2S25 
177770 
OC004e 


090034 
000026 


o00ce0 


000019 
000002 


pug ease MOS py eae 


000012 


000812 


CO3 


-SET UP DELAY COUNT. ###ee4 


arpa: STB arKs :CHECK DONE BIT. 
BMI ARDB ‘BRANCH IF DONE. 
DELAY ‘DELAY 1 MILLISECOND. 
BNE «BRO Ms J i . YET. 
BNALT fe io RESEONSE ROM READER. 
BR AREAD 


am 
(SR INTERRUPT cite AND PRIORITY 
sHOVE yECTOR ADDR TO STPRA+¢2 


ARDS: RTS 
jROUTINE TO SET 
STLSR Ve MOY 316), STPRA+2 
2, 0%6 


MOV TKVIR, % 
STPRA: MOV sOPEN: (1)4 - SET VECTOR RODRESS 
| , Moy TKLVL, (1)+ sSET RIORITY 
“ROUTINE TO SET LSP INTERRUPT vERFOR AND PRIORITY 
STLSPV: MOV 3(6),STPPA+2 =; MOVE “VECTOR ADOR TO STPPA+2 
ADD 82,06 :SET UP EXIT 
MOV TBUTR, %) 
STPPA: MOV BOPEN. (1)+¢ SET VECTOR ROORESS. 
MOV TPLYL; (1)¢ : SET P RIORITY 
sROUTINE TO ISSUE RESET. 
SRSETT: MOV es2525,%0 -DATA TO RO. 
c %0 : COMPLEMENT (RO). 
MOV “0. SRSETT+2 -(RO) TO SRSETT+e. 
RESET s ISSUE | RESET. (RO) 
RTI -DISPLAYED. EXIT. 
pRanoon NUMBER GENERATOR. ROUTINE EXITS WITH NUMBER IN REGISTER 
ROL %0 
ROL “0 
ADD 2,%0 
MOV %0, RP] 
ROL “0 
ROL %D 
ADD RP2, «0 
ROL %0 
ROL 49 
MOV “0, RP2 
MOV RPL “6 
RTS “2 -EXIT. NUMBER IN RO 
RP]: 1233 
RP2: (b2e 


T 


. 


1276 

lev? 003100 
1278 Bpstae 
1e73 00311 
1280 O03lle 
ie81 003120 
lebe O03le2e2 
1283 003126 
1284 003130 
1285 003136 
1286 O003i4e 
1287 003144 
1e88 O02146 
1289 002154 
1230 003160 
1e31 Q02166 
leSe 00317e 
1e93 003174 
1234 

1e9S 9031 
1296 OO 
1237 003204 
1e98 003210 
1e99 003216 
1300 003220 
1301 eaeEES 
130e 
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Reece sgeaee 





0000Ce 
000014 
177777 


BREAD: cae :SET Ao VECTOR 
NABL 
Roy be Mi, BRcTR Pe aberon ubB's MSECS. 
=" 
at aTKS ;CLEAR LSRI ENABLE. 
EHALT *NO RESPONSE HALT. 
BR BREAD -TRY AGAIN. 
176432 BREADA: MOVE TK, CRBUF ; CHAR READ 79 CRBUF . 
RTS -EXIT SUBROUT! 
BREADS: CLR STK “CLEAR LSR INTERRUPT ENABLE. 
TST8) 2s TKS FOR D 
SPL BREADC sBRRNCH TF DONE NO SET 
Moy SBREADA, dub Ok EXT INTERRUPT ei TO BREADA. 
BREADC: HALT DONE SIT nor SET AFTER INTERRUPT. 
MOV #BREAD, 2X6 SET ‘? TO RETR 
ase RU EXIT INTERRUPT 
SUBROUTINE TO OUTPUT ASCII MESSAGE ON TELETYPE PRINTER. 
TYP MOV a%6, “0 GET AQORE SS THAT CONTAINS MESSAGE ADDRESS. 
RODD ~ 82 ah -SET UP EXIT. 
MOV a%0, x0 -ADDRESS OF MESSAGE TO RO 
TYPA: MOVB  (0)+,TYPDAT -GET CHARACTER 
900076 CMPB =—s« 8 100, TYPDAT :CHECK FOR™a" CHARACTER 
BNE TYPC . -BRANCH IF NOT"g”. 
RTI s TERMINATOR CHAR. DONE. EXIT. 
po0064 TYPC: ches a5 TYPOAT ; CHECK Ag oat 
020054 cHPe r3, TYPDAT NOTS A CHECK. FOR" #” 
3k “7 T TYPO : BRANCH SHAR IN TYPDAT 
176156 TYPD: MOVE TYPORT,aTFE sOUTPUT CHARACTER TO PRINTER 
TSTB =o ATPS :WAIT FOR DONE FLAG. 
| BPL 34 
RTS sEXIT : 
p00020 TYPF: MOVE a]5,TyPOAT MO CARRIAGE RETURN CODE TO TYPDAT 
% ; : 
Q00006 TYPG: MOVB #12. TYPDAT sMOVE. LF CODE TO TYPOAT. 
JSR %? TYPD | 300 1 YPE CHAR. 
TYPA 
TYPDAT: OPEN 
;SUBROUTINE TO OUTPUT A SERIES OF ASCII MESSAGES ON TELETYPE PRINTER 
tYPS: MOV o-6 bs -GET ADDRESS THAT CONTAINS MESSAGE ADDRESS 
ADD ‘UPDATE TO NEXT MESSAGE ADDRESS 
MOV eA Teese sADDRESS OF NESSAGE TO TYPSB 
o00006 CMP 8-1. TYPSB s CHECK a: TERMINATOR 
BNE H IF NOT TERMINATOR. 
RTI SFERMINATOR EXIT 
TYPSA: TYPE CALL ON TYP SUB TO TYPE MESSAGE 
TYPSS: OPEN RESS OF MESSAGE GOES HERE 
R TYPS -GO PROCESS NEXT MESSAGE 


DOS 
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ozLcac.P 1! 
1304 : : j SUBROUTINE TO treo, N ets OF COURT eagness 
J ( s 
tgse Bhasag fesse Saosas ORE SS 
1307 O03240 O17746 000026 MOV SBC ENT, -(6) Set Op eat TO OFAC 
1308 903244 005067 174S26 CLR PSW ;SET PRIORITY 0 
1308 003250 O1le74%6 00226 DLYA: MOV 8226, -(6) -1 MSEC COUNT TO STACK 
1310 go3254 316 DLYB: DEC a6 ‘DECREMENT 1 MSEC COUNT 
1311 137 NE OLYB ‘BRANCH IF NOT 
1312 003260 005726 FOPSP : ZERO. UNCOVER MSECS. COUNT. 
1313 003262 905316 DEC a%6 -DECREMENT IT 
1314 003264 001371 BNE DLYA -BR IF NOT DONE DELAYING 
1315 903268 305726 POPSP : DONE 
1318 603270 od00052 at sEXIT, 
1317 603272 900000 CONTAINS MILLISECONDS COUNT ADDRESS. 
1318 a SESUTINE ne i Q RANDOM NUABER OF MILLISECONDS. MAXIMUM STALL 
131 ERM NED ON Nis ook Los STLMSK. 
ie 003274 o32767 o40000 1758044 D TES! FOR STALLS ALLOWED. 
l : 
1323 003306 904767? 177370 STALAA: ISR %?  RNGEN ;GO GET 
1324 003312 046700 900014 BIC STLMSK, %O -# IN RO. nnPPr Y "STALL, MASK. 
1325 903316 901404 BEQ STALB omg IF RESUL 
1326 003320 010067 oo0002 MOV %0,STALA 
1327 104400 DELAY 
1328 903326 STALA: OPEN Beka co COUNT 
1329 000002 STALB: RT EXIT. 
1330 003332 000000 STLMSK: OPEN -STALL MASK. 
1331 i SUBROUTINE TO GENERATE RANDOM CHARACTER COUNT 
1332 904767 177342 GRCNT: JSR :GET RANDOM NUMBER 
1333 003340 946760 000010 BIC RcHSK, %0 s APPLY MASK 
1334 003344 001773 BEQ GRCNT Y AGAIN Rin RESULT 0 
1335 19067 900004 MOV “9, RNCNT igoyyt 70 TO 
1336 07 RTS a3 
1337 003354 d60000 RCNSK: ; BANDON CHARACTER MASK 
] 003356 o00c00 e RANDOM CHAR aa 
1 ;SuBRGUT TO COMPARE DATA READ'FROM READER “BoaiNs yERPECTED DATA AND REPORT ERRORS. 
1340 004767 o00260 BCHE CK “7, GIBIN -GET BIN CHARACTE RQ) 
1341 O03364 110067 176063 : iBve %0° CREUF :S$/B CHAR TO CR FP 
1342 003370 126767 I76056 176055 CMPB CREUF , ARBLF +] -COMPARE S/B AND WAS CHARS 
1343 991901 ONE ;BRANCH IF NOT SAME. 
1344 003400 002 RTS 2" -SAME. EXIT. 
1345 194017 DATHLT 360 HA HALT AND DISPLAY DATA. 
1346 605367 176052 DEC ERCTR ERRORS? 
1347 003410 001002 BNE +6 *BRANCH IF NOT 2 YET. 
1348 904767 o0000e ISR %.7 , BSYNC iE ERRORS. RESYNC READER. 
1348 O03416 600207 RTS “? : 


1376 
1378 
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OQ 


So 


OSC055 
17S676 
000014 


000002 


177777 
000300 


176016 
176006 
175776 


175764 


p88070 


000014 


BSYNC: JSR INBIN : INITIALIZE BINARY 
ISR %7 BREAD : READ CHAR AND CTORE” AT CHR! 
MOVB § CRBUF. CHR 
JSR “7 BREAD ‘READ CHAR AND STORE AT CHR2 
MOVS § CRBUF,. CHR2 
JSR 47. BREAD :READ CHAR AND STORE AT CHR3. 
MOVB  CRBUF. CHR2 
JSR %7. SYNCA :GO SYNC 
BR NC -NO SYNC. TRY AGAIN. 
MOV a3, ERCTR 
RTS - SUCCESS.EXIT. 
SYNCA: MOV ne yeTRA + 2 TO Si CTRA 
MOV SVC TO SYCTRE 
SYNCB: JSR 6tBI GET BIN CHARACTER ( CHAR IN RO) 
CMPB x0" RRL :COMPARE TO CHR 
BNE SYNCB ; BRANCH IF NOT EQUAL 
JSR %7,GTBIN AME. GET ANOTHER SIN CHAR. 
CMPB 0s%0., CHRD : COMPARE TOC 
BEQ SYNCD :BRANCH IF EQU 
DEC SYCTRA ; DECREMENT SYCTR 
BNE SYNCB *BRANCH IF NOT AONE Si2 TIMES. 
SYNCC: EHALT :DONE S12. SYNC ERROR. 
TS -ERROR EXIT 
SYNCD: JSR %? .GTBIN -GET BIN CHARACTER 
CMPB CHR3 ‘COMPARE TO C 
BEQ iCE ‘BRANCH IF S 
DEC SY:TRB -DECREMENT SYCTRB. 
BNE YNCB BRANCH IF NOT DONE 10 TIMES 
BR YNCC *SYNC ERROR. BRANCH 
SYNCE: p00 #2, 3% 3SET UP SUCCESS EXIT 
SYCTRA: OPEN 
SYCTRS: OPEN 
-SUBROUTINE TO INITIALIZE BINARY COUNT PATTERNS 
tNBIN: MOV N VARIABLES 
JSR “5. BMOVE : TO MINUS 1 
RIND 
RIND+! 
RTS “7 sEXIT 
RIND: OPEN 
PTO: OPEN 
PTl: OPEN 
PIND: OPEN 
PTOP: OPEN 
PTIP: OPEN 


FO3 


ieee ee TO Oo IN THE LSR TO A Patter BINARY a i aTTERNE TEST TAPE. 
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o2Lcac. Pll 


1397 
oe oem Gurr init ine en ee ina ta ba oe 
1400 Shae BAe TS to>s85 COM PTI 

1401 O03€56 O0S18? 177746 COM RIND 

uo2 003662 001002 BNE . +6 

1403 903664 005267 177744 INC PT! - 

1404 003670 O42767 177400 177736 — Bre 8177400, PT] “MASK TO 8 BITS 

1405 003676 O16767 177732 177726 MOV PT1.PTO :SAVE BIN CHAR IN PTO 

405 003704 918700 177724 MOV PTL, “0 ;BIN CHAR TO RO. 

1407, 903719 RTS “2 if 

ups nos71 16767 177722 177722 GTBINP: MOV pTOP, PTIP -PREVIOUS BIN CHAR TO PTIP 

1409 003720 005167 177716 COM PTI 

1410 003724 005167 177706 COM BIND 

1411 003730 001 BNE 6. 

1412 003732 005267 177704 INC 

1413 993736 OY 767 177400 177676 BIC 8177400 PTIP  ;MASK TO 8 BITS. 

1415 16767 177672 177556 MOV bp : SAVE SIN CHAR IN PTOP. 

{as 093752 016701 177664 MOV PTIP, “1 :BIN CHAR TO RI. 

416 003756 0600207 RTS “? 

14] -OCTAL TO ASCII CONVERT ROUTINES’ 

1418 003765 012500 ACNV6: MOV (5)+, x0 :CONVERT TO & ASCII. GET OCTAL ADDRESS 
1419 003762 012567 ooD0012 MOV (8)4, ACNVB -GET ASCII ALDRESS 

1420 003766 O047E7 O900S2 JSR ? ACNV 3 CONVERT TO ASCIT 

1421 003772 O04S67 000122 JSR “s" BMOVE “MOVE & CHARS TO ASCII ADDRESS 
1422 003776 O04034 AIST 

1423 004000 000000 ACNVB: 

1424 94002 O0000E 6 

14e5 904004 900205 RTS 45 “EXIT 

1426 O04008 012500 ACNV4: MOV (5)+,%0 :CONVERT TO 4 ASCII. GET OCTAL ADDRESS 
1427 004010 012567 o0cole MOV (5)+' ACNVC -GET ASCII ADDRESS 

1428 - 004014 004767 o00024 JSR 47 , ACNY -CONVERT TO ASCIT 

1429 004020 004567 000074 | JSR “5. BMOVE -MOVE 4 CHARS TO ASCII ADDRESS. 
1430 004024 904036 AiST+2 

1431 O04026 900000 ACNVC: 

1432 904030 o00004 4 

1433 004032 900205 RTS “5 EXIT 

1434 004034 9000000 AIST: OPEN 

1435 004036 900000 OPEN 

1436 004040 000000 - OPEN 

1437 oo4042e 00000 ACNVX: OPEN 

1438 OO4044 012701 oso04O4e ACNV: MOV sAlST+6, “1 sADDR TO STORE ASCII TO R1 

1432 O040SO Ole702 o00006 MOV 8b, % 

1 004054 O11067 177762 MOV 3%0, ACNVX :OCTAL WORD TO ACNVX 

1441 904060 016703 177756 ACNYM: MOV ACNYX. %3 

144e 004084 042703 177770 BIC 8177770, %3 s ISOLATE LEAST SIGNIFICANT OCTAL #8 
1443 904070 062703 900060 ADD #60,%3 -ADD 60 TO CON VERT TO ASCII 
1444 604074 11 a MOVE %3,-(1) : STORE asc] BYTE 

1445 004076 shEae 177740 ROR ACNVX -MOVE NEXT OCTAL DIGIT TO LEAST 
1446 OO04102 806067 177734 ROR ACNVX :SIGNIFICANT POSITION 

1447 OO4106 006067 177730 ROR ACNYX 

1448 004112 005302 DEC “2 :DONE 6 TIMES? 

1448 094114 00126! BNE ACNVM :NO. REPEAT. 


1450 004116 000207 RTS Av ;YES. EXIT. 


= MAIN 

OZLOAC. P11 
14 
14 
ie gu 
1455 4135 
1456 004126 
1457 NE 
1458 O041 
1459 004134 
1460 904136 
fee 004140 
1463 O04%14e 
1464 O04146 
1465 004150 
i466 O0041Se 
467 004154 
1468 
1469 004156 
1470 O0416e2 
1471 OO4166 
1472 O0417e 
1473 004174 
1474 004176 
1475 
1476 9004200 
1477 C04204 
1478 O04 
1479 «~O04ele 
1480 O04e20 
1481 O042e4 
1482 004230 
1483 004234 
1484 004236 
1485 004 
1486 O04%e44 
1487 004250 
1488 O04eSe 
1489 O04%eS6 
1490 904 
1491 004264 
14Se O04e72 
1493 O004e76 
1484 004300 
1495 904302 
1496 004304 
1497 egy 
1498 00431 
1499 O043le 
1500 O00431% 
1501 004316 
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175144 


000060 


000010 


HOS 


aoa doe te MOVE A VARIABLE NUMBER OF BYTES. 


SMOVE: 


BMOVA: 


CPR 


(5)+,%1 
MOV (5) +) x2 
MOV (5)+:%3 
MOVB (De (2)+ 
DEC “a 

BMOVA 


RSTREG 


SU UBROUTINE 1 TO cH FOR PUNCH READ 


VE 
: QET"FROM" ADDRESS 
; GET" TO" ADDRESS 
COUNT 


Test FOR READY BIT. 
; BRANCH + READY NOT SET. 


{NOT READY. HALT. 


CHECK FOR PUNCH READY. 
H BUFFER. 


;LOAD PUNC 
‘WAIT FOR DONE. 


UP RODR TO STORE DECIMAL ASCII IN RO 


; BINARY 

sADOR OF “TEN POWER STRING TO R2. 

;SET UP FOR S POWER CONVERSIONS. 
OF TEN VALUE TO TENPWR 

ERSION 

DONE 5 CONVERSIONS? 

gg Bi NOT YET 5. 


sC OIGIT 
:SUBTRACT TEN POWER FROM BINARY VALUE. 
;BRANCH IF UNSUCCESSFUL SUBTRACTION. 


sRESTORE SUBTRACTED VALUE. 
sCONVERT (DIGIT) TO ASCII 
s MOVE ASCII CHAR TO DECVAL FIELD. 


BPL CPRDYA 
Bre 
CPRDYA: EHALT 
R CPRDY 
; SUBROUTINE TO PUNCH ON LSP CHARACTER IN REG O. 
(SPCH: JSR 7, CPRDY :GO 
MOV “0° JTPB 
TSTB 3 =s_« TPS 
BPL 4 
CLR ~ 
RTS :DONE. EXIT. 
“BINARY TO DECIMAL ASCII CONVERT SUBROUTINE, 
BOCNV: MOV #DECVAL, x0 SET 
MOV 3(5)+.%4 
MOV 8ADTENP, %2 
MOV #5. CNVCTR 
BDCNVA: MOV (2534. TENP 
JSR ¥%.? . SUBTEN 
DEC CNVCTR 
BNE BDCNVA 
RTS “5 
SUBTEN: CLR DIGIT 
SUBTNA: SUB TENPUR, %1 
- BCs SUBTNB 
<< INC IGIT 
¢~ BR UBTNA 
SUBTNB: ADD TENPWR, %1 
*" @DD . #60, DIGIT 
MOVE DIGIT, (O)+ 
RTS “2 : 
CNVCTR: OPEN 
IGIT: OPEN 
ENPWR: OPEN 
ADTENP: 10000 
1000. 
100. 
10. 
l 


103 
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1502 
1503 j SUBROUTINE TO TYPE A LINE OF benecr 
1504 O04320 012767 OOO0l22 oo0024 TYPLN: MOV #82. .TCTR CHAR COUNT +¢ +CR,LF 
1595 326 O1e704 012103 TYPLA: MOV #BLOCKA, %4 ey ‘LIE BODR ESS IN R4. 
1506 232 104092 TYPLB: STALL Sie 
ae Boas Mee? 77614 Mone 17 SPCR 35. SHARACTER 
eps Bpa sas bbe 5B5 500804 DEC ct BONE? 
1519 904346 001371 * BNE TYPLB ‘BRANCH IF NOT DONE. 
1511 004350 900207 RTS “7 :DONE. EXIT 
$12 004352 000000 TCTR: OPEN 
151 j SUBROUTINE TO TYPE LINE OF 3 CHARACTERS 
1514 004354 O11667 o00016 tYPL3: a%6, TPL3A » DEV ELOP AND SET ADDRESS OF 
1515 017787 000012 on0010 NOV aTPC3A, TPL3A  =:DATA TPLSA. 
1516 004368 O62716 009002 ADD #2, a%6 : SET 
1517 004372 OO04S&7 000034 JSR “S.FBF2 *FILL BUFFER’ WITH 3 CHARACTERS 
1518 904376 600000 TPL3A: OPEN 
1519 904400 042767 O40000 174740 BIC eB1714 PRGID  ;DISABLE STALLS. 
1520 004406 004767 177706 JSR = %7, TYPLN ;GO TYPE LINE OF CHARACTERS. 
1521 O044i2e o0000e RTI x 
1522 OO4414 112767 000015 OOS461 STBF: MOVB #15,BLOCKA Sus TO SET UP BUFFER AREA. 
$23 Doves 112767 O00012 oos4s4 HOVE tle, * BLOCKA+1 
1525 -SUBROUTINE TO FILL CHARACTER puieea WITH 3 CHARACTERS. 
1526 o90004 PBF3: MOV (S)+, FBF 


177456 JSR 75, BMOVE :MOVE 3 CHARS TO BUFFER. 
FBF3A: OPEN 
BLOCK! 
177444 FBF38: JSR %S, BMOVE -FILL 80 CHARACTERS BUFFER 
BLOCK! WITH 3 CHARACTERS 


78. 
177432 JSR %S , BMOVE 
BLOCK | 
BLOCKe 
RTS 45 EXIT 
sSUBROUTINE TO FILL BUFFER WITH ALL CHARACTERS 
177416 FBALL: JSR %5, BMOVE -FILL 80 CHAR BUFFER WITH 
*ALL CHARACTERS 
BLOCK! 
177404 JSR “5, BMOVE 
BLOCK1+63. 


177272 JSR %S, BMOVE 
CK1 


RTS “7 EXIT. 
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1SS 
1556 : lose - INPUT-OUTPUT LOGIC TESTS 
1557 004536 012767 OO4SSO “174566 PRGO MOV eat. KSTART ;ADDRESS OF Fatty. ROUTINE TO KSTART. 


228 salto Piosmannts fore 2: ; TEST realty TO SHEL peNce THE cB REROER STATUS WORD (TKS) 


eet Bbueee BONebe ATO: ar INERT TEST. 
a6 
tees Bbueeg 001550 i000. aNEXT IS 
1583 O04SS6 OO4SEE ATOA :SCOPE ENTRY. 
1564 S60 012767 OO4S76 173216 MOV WATOE,MACHER § :SET UP MACHINE ERROR TRAP. 
1565 S66 005777 174514 atoa: TST JTKS “REFERENCE CODER STATUS WORD. 
1566 004572 104012 ATOB: CHAIN ; CHAIN 
1567 004574 000774 SR ATOA “REPEAT TEST. 
1568 004576 104003 ATOE: ERROR ‘ERROR. TRAPPED WHEN REFERENCING READER. 
1569 000774 R ATOB -STATUS WORD (TKS). 
1570 - TEST ABILITY TO REFERENCE THE xt YBOARG/READER BUFFER (TKB). 
1571 oo4602 900001 ATI: 
1572 OO4604 004634 Are NEXT TesT. 
1573 004606 001750 1000. ; T. 
1574 OO04610 O04620 ATIA :SCOPE ENTRY. 
1575 OO046l2 012767 904630 173164 MOV WATIE,MACHER § :SET UP MACHINE ERROR TRAP 
1576 OO04%6e6 005777 174464 AT1A: TST aTKB _ REFERENCE READER BUFFER. 
1577 004624 104012 ATIB: CHAIN 
1578 004626 000774 BR AT1A ‘ REPEAT TEST. 
1579 004630 104903 ATIE: ERROR “ERROR. TRAPPED WHEN REFERENCING 
1580 O04632 000774 R ATIB *READER BUFFER. (TKB). 
1581 -TEST ABILITY TO REFERENCE PUNCH/PRINTER STATUS WORD (TPS). 
1582 o04634 900002 AT2: 2 #. 
1583 DO4665 AT3 <NEXT TEST 
1584 O04640 901750 | 1000. :1 COUNT. 
1585 oo464e o04652 AT2A :SCOPE ENTRY. 
i586 012767 oo4ss2 173132 MOV BATZE, MACHER ; SETUP MACHINE ERROR 
1587 OO046S2 005777 174434 aT2a: TST aTPS : REFERENCE INCH OPRINTER " étatus WORD. 
1588 OO4656 1040le ATSB: CHAIN 
1589 O04660 000774 BR AT2A REPEAT TEST. 
1590 OO04662 104003 ATZE: ERROR jERROR. APPED WHEN REFERENCING 
1591 O04664 000774 BR AT2B : PUNCH/ PRIN TER STATUS WORD (TPS). 
1592 -TEST ABILITY TO REFERENCE PUNCH/PRINTER BUFFER (TPB). 
1593 OO4666 9000003 AT3: 3 
1594 004670 004720 T4 
1595 04672 001750 1000. 
1596 004704 AT3A 
1597 004676 012767 O04714 173100 MOV BATSE,MACHER — ; SETUP _MACHINE ERROR TRAP 
1598 004704 005777 174404 AT3A: TST JTPB REFERENCE PUNCH/PRINTER SUFFER. 
1599 904710 104012 AT3B: CHAIN : CHAIN 
1600 OO04712 000774 BR AT3A ‘REPEAT TEST. 
1601 904714 104903 AT3E: ERROR “ERROR. TRAPPED WHEN REFERENCING 


i602 004716 000774 BR AT38 sPUNCH/PRINTER BUFFER. (TPS). 
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000100 
009100 


090340 
000100 


000100 


173040 
174342 
174334 


174320 
174312 


172754 
174256 


174246 


Le" aos wath TO SET AND CLEAR EST ID BIT 


ATY ST # 
ATS XT TEST 
1000. I COUNT 
AT4A i Cu ENTRY 
MOV #PRTY7, PSW -SET PRIORITY 7. 
ATYA: BIS sBIT&,aTKS -SET ID BIT IN TKS. 
IT #BIT6.aTKS ;CHECK ID BIT IN TKS 
NE AT4B ‘BRANCH IF ID BIT IS SET. 
ATHE!: ERROR bee ‘ERROR 1 ID BIT NOT SET. 
aT4B:  8sIc #BIT6,aTKS ;CLEAR ID BIT IN TKS 
BIT #BIT&.aTKS ‘CHECK ID BIT IN TKS. 
: EQ ATHC ‘BRANCH IF ID BIT IS CLEARED. 
ATYE2: ERROR -ERROR. ID BIT FAILED TO CLEAR. 
AT4C: CHAIN : CHAIN 
BR -REPEAT TEST. 
-TEST ABILITY TO MOLEAR ID BIT WITH RESET INSTRUCTION. 
ATS: § -TEST # 
AT24 : NEXT TEST 
100. =I COUNT 
ATSA -SCOPE EN NTRY. 
MOV #PRTY7, PSI SET PRIORITY 7 
ATSA: BIS #BIT6, aTKS SEL ID BIT IN TKS 
SRESET 
IT #BIT&, aTKS -TEST ID BIT. 
EQ ATSB ‘BRANCH IF ID BIT IS CLEAR 
ATSE: ERROR ; ERROR. RESET FAILED TO CLEAR ID BIT. 
ATSB: CHAIN 
R ATSA REPEAT TEST. 
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174174 


174166 


172624 
174132 


174le2e 


LO3 | 


ivs3" ABILITY TO SET AND CLEAR PUNCH s BIT 


ATS4 : TEST 

ares : NEXT TEST. 

1000. si COUN 

AT24A «SCOPE ENT 

MOV #PRTY7. PSH -SET PRIORITY 7 
aT2a4a: BIs #BIT6,aTPS -SET PUNCH ID BIT. 

BIT #BIT6.aTPS ;CHECK PUNCH ID BIT. 

BNE aTe4e’ -BRANCH IF PUNCH ID BIT IS SET. 
AT2UEL: ERROR some -ERRORIL. PUNCH ID SIT DID NOT SET. 
aT248: BIC #BIT6,aTPS :CLEAR PUNCH ID BIT. 

: gr BITS, aTPS -CHECK PUNCH ID BIT. 

. EQ aTeuC’ ‘BRANCH IF PUNCH ID BIT IS CLEAR 
AT24E2: ERROR -ERRORe. PUNCH ID BIT FAILED TO CLEAR. 
AT24C: CHAIN * CHAIN 

AT2YHC EPEAT TEST 
TEST ABILITY TO CLEAR PUNCH ID arr WITH RESET INSTRUCTION 
AT30 ; NEXT ‘TEST. 
100. y 

ATSeA : SCOPE ENTRY. 

MOV #PRTY7, PSW -SET PRIORITY: 7. 
aT2esa: BIS #BITG, ITPS ; SET PUNCH ID BIT. 

SRESET T 

BIT #8IT6, aTPS iC HECK PUNCH ID BIT. 

BEQ AT2S5B *BRANCH IF PUNCH IL SIT IS CLEAR. 
AT2S5E: ERROR ; ERROR. RESET FAILED TO CLEAR PUNCH ID BIT. 
AT25B: CHAIN 

-. BR AT25A REPEAT TEST. 
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174076 


000040 
174036 


174006 


173774 


_—— —- —_——-— oo oe = 


174044 


;TEST THAT RESET SETS THE PUNCH READY BIT, AND THAT READY CAN GE READ RELIABLY. 


aTPS . 
AT308 


M03 


s 
sNEXT Md 


: SCOPE ENTRY 


CHECK PU 


NCH READY. 
: BRANCH iF PUNCH READY IS SET. 


;ERROR. RESET FAILED TO set READY, OR FAILED TO READ IT 


AT30A tREPEA T TEST. 
-TEST THAT PUNCH READY RESETS BY’ LOADING PUNCH BUFFER. 


AT30: 30 
aT 31 
1000. 
AT30A 
AT30A: TSTB 
BMI 
AT30E: ERRO 
AT308: CHAIN 
BR 
AT31: 31 
at 32 
AT31A 
AT31A: DELAY 
SO. 
SRESET 
OV 
TSTB 
PL 
AT31E: ERROR 
AT31B: CHAIN 
AT32: 
AT33 
20. 
T32A 
AT32A: DELAY 
150. 
SRESET 
MOV 
INC 
CLRB 
TSTB 
BMI 
AT32E: ERROR 
AT32B: CHAIN 


#40, aTPB 
a) 


TPS 
AT31B 


NEXT ‘TEST 


;RESET 
OED PUNCH BUFFER 


SCOPE ENTRY 
‘WAIT 150 MSECS 


HECK PUNCH READ 
;BRANCH IF PUNCH READY IS CLEAR 


iB ROR. BUFFER 


ES 
}NEXT ss! 
SCOP E EN 


NTRY 
sWAIT 150 MSECS 


»RESET 


sBYTE LOAD PUNC 


ADY BIT. 


LOAD FAILED TO CLEAR READY. 


BR AT31A REPEAT TEST. 
- TEST THAT BYTE LOAD OF PUNCH aut +1 DOES NOT RESET READY. 


H BUFFER+1 
BIT 


;CHECK PUNCH READY 


‘BRANCH IF PUNC 
sERROR. BYTE 
CLEARED READY. 
sREPEAT TEST. 


H READY STILL SET. 


LOAD OF PUNCH BUFFER+1 
CHAIN 
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i TEST THAT PUNCH BECOMES READY BY 200 NSECS AFTER BUFFER LOAD. 
AT34 NEXT Test 
20. I COUN 
T33A SCOPE ENTRY. 
AT33A: DELAY | -WAIT 1SO MSECS. 
173746 APR: JTPB sLOAD PUNCH BUFFER. 
DELAY | -WAIT 200 MSECS. 
173734 TSTB”SsoTPS... -CHECK PUNCH READY BIT. 
BMI AT338 :BRANCH IF PUNCH READY IS SET. 
AT33E: ERROR ; ERROR. READY NOT SET 200 MSECS AFTER BUFFER LOAD. 
AT33B: CHAIN ase : CHA 
: TEST THAT PUNCH READY BIT CAN CAUSE AN INTERRUPT. IF THE INTERRUPT 
ils, SERVICED, IT WILL HAVE OCCURRED AT , THE CORRECT VECTOR. 
AT3S NEXT TEST 
1000. COUNT 
AT34A SCOPE ENT 
STPCHV Ser PUNCH INTERRUPT SERVICE 
173704 AT34A: AL aTPS ; DISABLE PUNCH INTERRUPTS 
172364 CLR PSW “SET P 
000100 173672 B15 #BIT6,aTPS ‘ENABLE PUNCH INTERRUPTS. 
AT3YE: ERROR :PUNCH READY FAILED TO CAUSE 
AT34B: CHAIN : INTERRUPT. CHAIN 
R AT34A -REPEAT TEST. 
AT3YC: POPSP pa ; HERE IF INTERRUPT OCCURS. POP THE 
-TEST THAT PUNCH READY DOES NOT ABUSE AN INTERRUPT WITH PROCESSOR 
-AT SAME PRIORITY LEVEL AS THE PUNCH INTERRUPT REQUEST LEVEL. 
AT3S: 35 -TEST # 
aT 36 gNEXT, Test 
et id COUN 
STPCHY | ;SET Punch INTERRUPT SERVICE 
173650 172320 AT3S5A: MOV TPLVL , PSW CET PROCESSOR TO SAME PRIORITY AS PUNCH. 
173630 CLR ‘DISABLE PUNCH INTERRUPTS. 
000100 173622 ~~ BIS #BIT&,aTPS ‘ENABLE PUNCH INTERRUPTS: 
173614 AT3SB: CLR JTPS sO IF NO INTERRUPT OCCURS. 
BR AT3SA “REPEAT TEST. 
AT3SE: POPSP2 ‘ERROR. PUNCH INTERRUPTED WITH PROCESSOR 
ERROR pes -SET TO SAVE PRIORITY AS THE PUNCH. 
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;TEST THAT THE PUNCH 


AT36: 


ATSEA: 


ATSEB: 
ATSbC: 


AT37: 37 
ATO 
1000. 
AT37 
AT37 STPCHYV 
AT37 
CLR 
CLR 
BIS 
NOP 
AT37E1: ERROR 
ATS7B: CLR 
CHAIN 
BR 
AT37C: MOV 
MOV 
RTI 
AT37D: - 
AT3S7Ee: FOPSP2 
ERROR 


HAIN 


ates 
TPLYL, PSW 
PSW 


HIN 


- THAN ~~ PUNCH PRIORITY 


BO4 


#40 
ebits, aTPs 


AT3EC 


JTPS 


JTPS 


sBIT&,aTPS 


aTPs 


AT378 
BAT37E2, JTPYTR 


8AT370, au 


AT378 


ATS78 





\ taste WITH PROCESSOR AT PRIORITY ONE LEVEL LOWES 


nex test 


eer INTERRUPT SERVICE 


;DISABLE PUNCH INTERRUPTS 

:SET ee test Neate a LEVEL 
sLOWER, THR N PUNCH PRIORITY 

NABLE PUNCH INTERRUPTS 


sERROR. PUNCH FAILED TO INTERRUPT. 


sHERE IF INTERRUPT OCCURS. POP 
: THE OCK TWICE. DISABLE PUNCH INTERRUPT 


AT36A 
-TEST THAT PUNCH READY DOES NOT iBePEAT Test AFTER RTI WHEN READY 
i8 HAS NOT BEEN RESET. 


; TEST 
NEXT a 
:I COUN 
SCOPE ENT 
SET Burcn INTERRUPT SERVICE TO 
;DISABLE PUNCH INTERRUPTS 


SET PROCESSOR PRIORITY TO 0 
ENABLE PUNCH IN NTERRUPTS 


Bee oe eee FAILED To INTERRUPT. 


UNCH INTERRUPT. 
Rete Fir TTRTERRUPT OCCURS. a 
ONTERR VES TOR TQ ATS7E2 AND EXIT 
;OK IF NO REINTERRUPT OCCURS 


sERROR 2. PUNCH R a a la AFTER 
SRTI WITH READY 81 
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009340 
Dit 
000340 


Past 
00082 


008764 


172066 
173370 
172042 


ATY 


ATSOR: 


ATYOB: 
AT4OC: 


AT4OD: 


CO4 


a Ae » PSW 
eSIT6,aTPS 


sPRTY?7,PSW 


AT4COC 
aTPS. 
oH 
“7, a8PRG) 
ATSOR 


-TEST FOR AC 


sTEST THAT THE PUNCH INTERRUPTS IMMEDIATELY UPON LOWERING 
Na ae PRIORITY TO QO. 


TEST 
ST ‘al 
oa 

at INTERRUPT 
SET PROCESSOR "PRIORITY TO 7. 
$e eaeee PUNCH IN Way de 

BLE PUNCH INTERRUPTS 
oe PROCES on “PRIORITY TO Q. 


ISE PRIORITY 
PUNCH F aILep’ TO_ INTERRUPT 
R F ihe 1 pat WAS SET TQ Q. 


ROR. 
MMEDIATELY AFT 
sHERE IF INTERRU 

AO, 20GLE PUNCH INTERRUPTS 
‘SPAN TF NOT ACTII 


L 
HR 
T 


Sete 


HAIN 
EPEAT TEST 


eae 


maiseinias 


GJ 
~ 


BRS! 
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rss Ft EF 
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009024 
011103 


173310 


PRG! 


TO 


CTlA: 


RMe: 


Ce ae TESTS = 


DO4 


aCTO,KSTART 
sear ane Sfimsk 
“>. STBF 


J 
———s RETURN TEST. 


s80., 


. ReNt cra 


CTRA, CTRE 
8 %0 


820. 


SRM 335, RMB. 


CTRA 
CT1A 


;SET ADDRES ST ©" palmate 
sBYPASS SCO Be AN ICNT ! 
;SET STALL 
:SET UP BUFFER TOREA.. 
:GO GET STARTED. 


; TEST#® 
NEXT "TEST AODRESS. 
-TYPE TITLE. 


sRCNT TO CTRA 
-DECREMENT CTRA 
-BRANCH IF NOT QO 


0. CHAIN 
>SPACE COUNT TO CTRE. 
- CHARSE 


; SPACE. 
:DECREMENT CTRS. 
;BRANCH IF NOT DONE SPACING. 


; CARRTAGE RETURN. 
sLINE FEED 


s TEST 

-NEXT TEST. 

-TYPE TITLE 

:SET UP FOR 33/35 

: TYPE----] 

sDONE N TIMES. 

sBRANCH IF NOT N TIMES 
-TYPE-I-. 


> CHAIN. 


E04 
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SPRE ORE Badal total 2 


0p G9 G0 Gp GD cD CD CD 
it rit het es tr 


BEB Bese 


> ->-+ 0-- & < & <b & -< b -* & + & <b 6-3» > + <-> <-> ~~ 6 - 0 6 » «< § ~ >< 9 —< 9-0 6-9 § -2 & <> ~ > <— b-- 9 & - > -- BH << 9-0 
0.00 baa 
wet ps 

Ss iJ 


0 


; SPACE ym 


006184 oo0002 éT2 -TEST# 
008168 906320 CT3 , * NEXT "TEST 
170 304 20 TYPE ‘TYPE TITLE. 
i oi 1 4 SPTST 
174 Ole76? oOO00SO 173262 MOV #40. ,CTRA »33/3S COUNT TO CTRA. 
pose2de 104 CT2A: TYPE -TYPE SPACE, \. 
p08204 91111 perstc 
? 173252 EC CTRA :DONE TIMES SET IN CTRA? 
Spesis 1373 BNE CT2A -BRANCH IF NOT DONE 
006214 012767 173242 MOV #40... CTRA -SET UP CTRA COUNT FOR 33/35 
006222 312767 000001 173238 CT28: MOV #1, CTRE 
006230 016767 173232 173232 CTeC: MOV. CTRB,CTRC * 
006236 112700 000015 MOVE #15.%0 : CARRIAGE RETURN. 
hosa42 OO4767 175710 JSR %.7,LSPCH 
o06246 104490 DELAY ‘DELAY 4SOMS 
0082s0 ? 450. ¥ 
006252 112700 o00040 CT2D: MOVB #40,%0 :CURSOR RIGHT 
N06258 OO4767 175674 JSR “7, LSPCH -SET IN CTRC. 
005367 173202 DEC Re “DONE SPACING. 
001371 BNE CT2D ;BRANCH IF NOT DONE SPACING. 
006270 112700 000057 MOVB 7 40 -DONE. TYPE A ™ 
996274 OO47E7 175656 JSR %7 LSPCH 
005367 173160 DEC CTRA :DONE 36 
906304 001001 SNE CT2E : BRANCH IF nD "DONE. 
194012 CHAIN :D CHAIN 
C0S310 062767 oOCOD02 173150 CT2E: ADD #2, CTRB MODIFY CTR FOR NEXT TRY. 
006316 ooo744 ck cT2¢ -GO DO IT AGAIN. 
-LINE FEED TEST 
006320 900003 > a -TEST # 
608322 006400 CTY | * NEXT Test 
996324 104000 TYPE -TYPE TITLE 
006326 911221 LFETST 
006330 Se 040000 173010 BIS WBIT1Y,PRGID — ; ALLOW STALLS. 
N06336 Ole767 009!20 173120 MOV #90. ,CTRA SET 335 LINE FEED COUNT. 
608344 112700 009134 CT3A: MOVE 8°\,%0 - TYPE * 
006350 504767 175602 JSR 47, LSPCH 
006354 112700 o0001e MOVB le. %0 sLINE FEED. 
006360 O04767 175572 ISR 47, LSPCH 
606364 005367 173074 DEC CTRA -DONE N TIMES? 
006370 9O01001 ONE C738 ; BRANCH Jf NOT DONE. 
006372 104012 CHAIN ; DONE . HAIN 
10400 CT38: STALL : STAL 


006374 
006376 000762 BR CT3A ; REPEAT 


—— ee ee 


1910 


MOOO0 00000 
0 IM U1 Gotu 
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000011 


o00040 
000007 
00046 

oo44 
000036 
173006 


172776 


172762 


177764 
177760 


172660 


000074 


éTy 


173026 CT4A: 


172742 
172736 


CT4B: 


TPBM: 


TPEMA: 


TBCNT: 
SPCNT: 
TABP: 


TREPA: 
TABPS: 


TABPC: 


; TAB TEST 
: 4 


#3. , TSCNT 


%5, TPEM 


A 
TPBMA 
45 


FOY 


TBCNT ,CTRS 
ae »CTRC 


NEXT TEST 
Pa 1B COUNT. 


sNO. 
> TYPE MARKERS 


sL 
iS 


DONE 7 


INE COUNT TO CTRA 
TQ SPAC COUNT. 


: INCREMENT SPACE COUNT. 


; BRANCH tf ROT DONE. 
TYPE TEST TITLE. 


: TYPE MARKERS 


sEX] 


° 
‘ 


« 


: TAB COUNT 
» SPACE COUNT 
CRLF. 


;TAB COUNT TO cTRE 
;SPACE COUNT TO CT 


:BRANCH IF SPACE COUNT IS 0. 
; SPACE 


sDECREMENT SPACE GOUT 


; BRANCH IF NOT YET 
TAB 


sDUMMY CYCLE 
: DUMMY nc Q CLE. 
-TYPE ™ 


sDECREMENT T 
;BRANCH IF_N 
DONE. EXIT. 


a 


COUNT. 
DONE 


RC 
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DZLCAC.P 


1955 
1956 
4 a2 
1388 
960 


1 


PEPLRP RP 


. 


8 
3 


DO ot Tot tots 


+-—- }—- b = 6 0-- 6 9 ~ 9-< p= 9 —< b-< § = p< & = & - &— 6 -< & < » ~ & -< 9-2 6 ~~ ho 
0.0.0.0 0 


1985 
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104012 
000013 
006724 
104016 
0107 


10752 
104012 
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éTs 


éTs 
CT? 
TYPLN3 


. 
CT10 
TYPLN3 
G 

bt 


| 
TYPLN3 
J 


a 
CT12 
TYPLNS 


GO4 


: TYPE Lie OF CHARACTERS ABC 


CHAIN 

.TyPe -s OF CHARACTERS DEF 
CHAIN 

tyre Lie OF CHARACTERS GHI 
CHAIN 

bine — OF CHARACTERS OF JKL 


CHAIN 
My, on OF CHARACTERS MNO 


CHAIN 
; TYPE LINE OF CHARACTERS POR 


CTle: le 
CT13 
prs 


C 
CT14 
TYPLN3 
CHAIN 


CHAIN 
-TYPE LINE OF CHARACTERS STU 
T13: 13 


sTEST & 
“NEXT TEST_ 
-TYPE “CHARACTER TESTS” 


TESTS 
*-NEXT TEST. 
TYPE LINE 


; CHAIN 
sTEST # 
NEXT TEST. 
» TYPELINE 


; CHAIN 

“TEST # 
*>NEXT TEST 

; TYPE LINE 

: CHAIN 

sTEST & 
sNEXT TEST 
TYPE LINE . 
; CHAIN 


sTEST # 
sNEXT TEST 


MAIN. 


MACYL1 27(732) 
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104012 


. bT22 
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;TYPE LINE OF CHARACTERS Vix 
uT14: 
YPLN3 
CHAIN 
TYPE LINE OF CHARACTERS YZC 
Avis: 
YPLN3S . 
CHAIN 
-TYPE LINE OF CHARACTERS le3 
éT16: 
TYPLN3 
CHAIN 
-TYPE LINE OF CHARACTERS 4S6 
éT17: 1 
TYPLN2 
AHAIN 
,lYPe LINE OF CHARACTERS 789 
vT20: 3 
TYPLN3 
N 
-TYPE LINE OF CHARACTERS!”s 
éTe2l: 
TYPLN3 
CHAIN 
- TYPE | OF CHARACTERS $3 
TYPLN3 


CHAIN | 
-TYPE LINE OF CHARACTERS °() 
éT23: 2 


;TEST & 
*NEXT al 
» TYPE LINE 
s CHAIN 


TEST # 
sNEXT TEST 
- TYPE LINE 
» CHAIN 

; TEST 

ba TEST 

YPE LINE 

enn 

; TEST 

: NEXT TEST 
:TYPE LINE 
; CHAIN 

> TEST 
: NEXT TEST 
: TYPE LINE 
; CHAIN 
sTEST # 
-NEXT TEST 
TYPE LINE 


; CHAIN 


sTEST & 
sNEXT TEST 
sTYPE LINE 


; CHAIN 


; TEST 
iNET TEST 
YPE LINE 


aio 
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TYPE LINE OF CHARACTERS #+, 
vTe4: a4 
Cres 
TYPLN3 
cS2 
CHAIN 
-TYPE LINE OF CHARACTERS -. / 
éT25: 2 
26 
TYPLN3 
css 
CHAIN 
-TYPE LINE OF CHARACTERS :;< 
éT26: 26 
¢T27 
TYPLN3 
C72 
CHAIN 
-TYPE LINE OF CHARACTERS =>? 
ét27: 27 
C730 
YPLN3 
C75 
CHAIN 
-TYPE LINE OF CHARACTERS a[\ 
éT30: 30 
TYPLN3 
C100 
éT3 
C732 
TYPLN3 
135 
CHAIN 


. 3 
*NEXT TEST 
TYPE LINE 


CHAIN : CHAIN 
TYPE LINE OF CHARACTERS 1 AND LEFT ARROW 


:NEXT TEST 
sTYPE LINE 
» CHAIN 


JO4 
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DZLCAC.P1) 
2086 : TYPE 20 LINES OF ALL CHARACTERS 
2087 ‘FIRST 10 FULL S 
e083 -SECOND 10 AT STALL SPEED 
2030 007140 CT32: 32 s TEST 
91 oo714e 1} =| ‘LAST TEST 
2992 007144 O04767 175326 JSR %.7, FBALL :FILL BUFFER WITH ALL CHARACTERS 
2093 007150 042767 00 172170 BIC wBiT14,PRGID  :CLEAR STALL B 
2094 007156 Ole767 O000l2e O01146 MOV #10. ,CNT -SET LINE COUNT = 10. 
2095 007164 004767 175130 CT32AQ: JSR %? TYPLN :TYPE A LINE 
986 007170 005367 O01136 DEC cnt 
2037 7174 901373 BNE CT32A 
098 007176 O52 040000 172142 81S #BIT14Y,PRGID :SET STALL 
2089 007204 9120767 O000l2e 401120 MOV #10. CNT LINE COUNT = 10 
2100 O072el2 OO4767 175102 CT328: JSR %?. TYPLN TYPE A FINE AT STALL SPEED 
2101 O07218 005367 001110 DEC CNT 
2102 O072e22e 001373 BNE CT328 
2103 007224 013700 oop004e MOV a#42, %0 
2194 007230 001405 BEQ cT3a¢ -BRANCH IF NOT ACTI1 
2105 007232 900 RESET 
210& 007234 004710 LOGICAL: JSR 47, 9X0 
2197 007236 o0024 NOP 
2108 007240 O00e4 | NOP 
2109 OoO7242 o00240 . . NOP 
2110 007244 104012 CT32C: CHAIN 
Pill :NOTE: FOR PRINT RATE TEST 
2112 -1) TIME FIRST 20. LINES = APPROX 30 SECONDS. 
2113 ;2) CLEAR STALL BIT (BIT14 IN BIS #BITI4, PRGID). 
2114 ; TIME ENTIRE TEST = APPROX 60 SECONDS. 
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-PRG2-KEYBOARD TEST 
007246 012767 007272 172056 PRG2: MOV #ETO, KSTART 
press 052767 000200 172064 BIS #BIT?, PRGID 
7262 104000 YPE 
007264 011324 
007266 OO0167 172406 JMP SRSET 
: -TEST THAT PRESSING KEY SETS DONE FLAG. 
007272 o00000 ETO: oO “TEST # 
007274 007376 ETI :-NEXT TEST. 
007276 012767 OC000S 172160 MOV #5, CTRA 
007304 104005 ETOA: STRORV 
007306 007342 ETOB 
007310 104000 TYPE ‘TYPE “PRESS A KEY WITHIN 10 SECS.” 
607312 611342 KMSGe2 
007314 052777 o00100 171764 BIS sBITb, TKS -ENABLE KYBD INTERRUPT. 
097322 005067 170450 CLR PSW 
007326 104400 DELAY wt ¥. :WAIT 10 SECONDS | 
007330 023420 10000. 
007332 104000 TYPE : TYPE "NO KEYBOARD REQUEST.” 
007334 611544 KMSG6 
007336 104010 EHALT sHALT. 
007340 00411 BR ETOCA 
097342 105777 171740 ETO8: TSTB  aTKS -TEST FOR DONE BIT ON 
46 100403 BMI ETOC ‘BRANCH IF DONE BIT SET. 
907350 104000 TYPE -DONE BIT NOT SET. TYPE:FALSE KEY- 
352 011572 KMSG7 -BOARD OR READER INTERRUPT. 
607354 104010 EHALT : HALT 
907358 012716 007364 ETOC: MOV HETOCA, 246 
007362 o0do02 RTI sEXIT INTERRUPT. 
007364 104011 ETOCA: SRESET 
007 00536? 172072 DEC CTRA :DONE S TIMES? 
007372 001344 BNE ETOR *BRANCH IF NOT DONE. 
067374 104012 CHAIN : CHAIN 
-ECHO TEST. KEYED CHARACTER IS TYPED. RUBOUT ENDS ROUTINE. 
000001 eTl: 1 :TEST # 
007400 007456 ET2 ‘NEXT TEST. 
007402 104000 | TYPE :TYPE TITLE AND INSTRUCTIONS. 
097404 011402 KMSG3 
007406 105777 171674 ETIA: TSTB  aTKS -WAIT FOR DONE FLAG 
607412 100375 BPL <4 
007414 117767 171670 172030 MOVB § aTKB,CRBUF :MOVE KYBD CHAR TO CRBUF. 
007422 116777 172024 171664 ‘MOVB  CRBUF, aTPB *ECHO CHAR READ. 
007430 105777 171656 TSTB 3s ATPS ‘WAIT FOR PRINTER DONE. 
907434 100375 BPL <4 
907436 042767 o00200 172006 BIC #B1T7, CRBUF :CLEAR BIT 7 FROM CRBUF. 
007444 122767 000177 172000 CMPB. sa 177, SRBUF :COMPARE CRBUF TO RUBOUT (177) 
p074S52 001355 BNE ETIA ; BRANCH IF NOT RUBOUT (177) 


007454 104012 CHAIN ; CHAI 
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DZLCAC.P11 
2elb4 
2165 sOCTAL EQUIVALENT TEST. THE OCTAL EQUIVALENT OF ANY CHARACTER KEYED 
16 iS. PRINTED. RUBOUT ENDS ROUTINE. 
167 OO074S6 og9002 eT2: e@ TEST . 
168 O07460 17777 =| “LAST TEST 

2169 OO7462 10400! TYPES -TYPE TITLE AND INSTRUCTIONS. 

2170 007464 011504 

2171 O07466 O11415 | KMSG3A 

2172 007470 17 -} 

2173 007472 OOSOB? 171754 CLR CRBUF 

e174 47 77 (171604 ET2A: ISTe ITKS _ sWAIT FOR DONE FLAG. 

2176 007504 117767. 171800 171740 MOVB § JTKB, CRBUF :CHARACTER TO CRBUF 

e177 Oo7Sle O04S67 174270 JSR %5, ACNVY “CONVERT CHAR IN CRBUF TO 

2178 007516 O014S2 CRBUF ‘PRINTABLE OCTAL 

2179 007520 011536 ) OCTEQV 

2180 907522 104900 TYPE :TYPE OCTAL EQUIVALENT 

2181 007524 011534 KMSGS 

2182 007526 767 oO00200 171716 BIC #8177, CRBUF :CLEAR BIT 7 FROM CRSUF 

2183 007534 022767 000177 171710 CMP #177, CREUF -TEST FOR RUBOUT CHARACTER. 

2184 907542 001355 BNE ET2A *BRANCH IF NOT RUBOUT (177). 

2185S 007545 104012 CHAIN : CHAIN. 
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012105 
171502 


171640 
000200 
009177 
040000 
174242 


174430 
167674 


171402 
171376 


174225 


——-~ == ———— em 


171650 


171616 
171610 


171474 


171536 


MO4 


;PRG3-PRINTER EXERCISER. KEYBOARD CONTROLLED. 


-TYPES LINES WITH ANY S CHRPOCTERS, STALLS OR FULL SPEED. 
PRG3: JSR 47, STBF TU F 
YPE TYPE TITLE 

P7MG1 
HTA: BIS #BIT14. PRGID ‘ T STALL BIT IN PRGID. 

MOV #177600, STLMSK T STALL MASK 

MOV #BLOCK1 %3 

TYPE sTYPE “TYPE IN DATA”. 

P7MG2 

TST JTKB sREMOVE FLAG 

MOV #6,CTRA -CHAR COUNT TO CTRA. 
HTB: JSR %7.GKBCR ‘GET AND STORE KYBD CHARACTER. 

DEC CTRA -GOT & CHARACTERS? 

BNE HTB ‘BRANCH IF NOT & CHARS YET. 

: BIC #8177, CRBUF 

CMPB #177, , CRBUF -CHECK &TH CHAR FOR RUBOUT. 

BNE HTC ‘BRANCH IF NOT A RUBOUT. 

BIC #BIT14,PRGID  :RUBOUT. CLEAR STALL BIT IN PRGID. 
HTC: JSR %5, BMOVE “FILL 80 CHAR LINE. 

BLOCK! 

oe ; 
HTD: JSR %.7, TYPLN : TYPE LINE. 

TST SR 3C HANGE DATA? (SR1S=1). 

BMI HTA “YES. GO C TA 

BR HTD -NO CONTINUE WITH SAME DATA. 
GKBCR: ISTE aTKS :WAIT FOR DONE FLAG. 

MOVB aTKB CRBUF :CHARACTER JO CRBUF. 

NOVE CRBUF , (3) -CHARACTER TO LINE BUFFER. 

JSR “7, SUS eCH sECHO CHARACTER. 

RTS “2 
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007740 000775 


¢€ 


a an 


; Pw ‘ | t 


. 2 


NOY 


L3-MAY-7& 13:28 PAGE Se 


: PRGY-PUNCH CLOCK ADJUSTMENT Pt be 
j QUIPUTS CHARACTER SET IN LEFT H 


4:  CHALT : HALT 
000036 ITA: JSR %7.C1112 ; GO OUTPUT CHARACTER SET IN LEFT 
BR ITA -HALF OF SR AND STALL PER SR RIGHT. 


 PRGS-READER CLOCK ADJUSTMENT ROUTINE. 
‘PERFORMS SAME FUNCTION AS ueScERGLL, 2 ND. IN A 001 TION 
CH MAI FTS OUTPUT OF PUNCH 
-SHIFT REGISTER ONTO THE. READE ER ue FFER. THE CONTENTS OF THE 


*READER BUFFER ARE THEN “FIXED” ON THE CONSOLE DATA LIGHTS 
pBY_ ISSUING : RESET WITH CONTENTS | OF OF READER BUFFER LOADED IN RO. 
000020 JTAa: JSR “2 ci1i2m 9,04 OUTPUT CHARACTER FR FRON 88 R LEFT AND 
171334 MOV aTKB, % ALL PER SR 
RESET "FIX" (TKB) IN DATA (TOHTS. 
RESET 
RESET 
RESET s 
RESET 
R JTA : REPEAT. 
opo004 171314 €1112M: BIS #4, JTPS - SET MAINTENANCE | MODE (PUNCH). 
167566 O00022 (Cllle: MOVB  SR.XTY :STALL COUNT TO X 
000016 TST XTY : DISREGARD H DELAY, 
BNE C1112A 
000010 INC ) 
167547 171270 C1l1l2@A: MOVB SR+1,aTPB :LOAD PUNCH BUFFER. 
DELAY ‘DELAY (APPROXIMATELY) THE NUMBER OF 
XTY: OPEN * : sMSECS. SPECIFIED AT SR RIGHT 


—— 


BOS 


JMSIN, Roe 27.732) 13-MAY-7& 13:28 PAGE $3 
D2 oae. PL) 
ao 
Sse sPROO-MA SESE SE eS HARECTER DGTA, TEST. 
258 eWITH MA z pus NTO PUNC FER AND BACK ONTO 
BS : R Fer ae CHARACTER IN Tue 
> :REQDER rf : is -SNPARE we CHER ER IN R LEFT. IF THE 2 CHARACTERS 
ae : DISAGRE PROGRAM HAL %, afi DATA LIGHTS WILL ? HEN CONTQIN: 
$s sLEFT HALF: THE EXPECTED ia a (SR LEFT). 
264 *RIGHT HALF: THE CHARACTER IN REROE BUFFER. 
2265 21 104905 PRG&:  CHALT T : $e SR. 
2206 a1 errr 000004 171250 KTA: BIS #4, aTPs :SET MAINTENANCE MODE. 
e2t7 010042 105777 171244 KTS: STB. TPS ;WAIT FOR READY. 
2268 ipo 109375 SPL 4 
2263 01 116777 173377 171236 Nove CRBUF+1,39TPB § ; OUTPUT CHARACTER. 
gE: l ee 171224 TST aTKS :WAIT FOR READER DONE FLAG. 
71 «Ol 100375 BPL 4 
eeve OL0064 11776? 171220 171360 MOVE §§ aTK8,CRBUF :CHAR READ TO CRBUF. 
3373. 220078 igs DATCHK ge Bo CHECK AGAINST S/B CHAR. 
gers l ? SR KTA 
2276 G7-MAINTENANCE MODE SPECIAL sen Y COUNT PATTERN DATA TEST. 
2277 RFORMS SAME OPERATION AS PRGI3, EXCEPT THAT SPECIAL BINARY COUNT 
cere SERTTERN IS USED. 
e273 OLD07& OON7E? 173504 PRG7?: JSR INITIALIZE BINARY COUNT 
2280 913108 012787 177600 173222 MOV 0177600, STLMSK ;SET STALL LIMIT 
2281 010110 0S8767 O400C0 171230 , BIS GIT 18 4.PRGID ALLOW STALLS 
e282 O10l16 777 GOO0O4 171166 LTA: Bi§ Stee -SET MAINTENANCE MODE 
2283 12184 7 900400 187436 BIT agtTs, 5 :CHECK STALL SWITCH 
2284 O10] 100! BNE : BRANCH © NO STALL WANTED 
2285 010134 i104 STALL STALL 
2286 O10136 108777 171150 Ts: YTSTs aTPs :WAIT FOR READY. 
2287 010142 100375 BPL 
2288 910144 767 17354 JSR “7 TG TBINE “ents GHRACTER. 
2283 910150 ? 17127 CLR CRBUF ¢ 1 ve 
2290 910154 110177 171134 MOVE 1. aTPB 1 BIN CHARACTER. 
229) 319280 777 «17 li22 TSTB sree yt FO READER DONE. 
2232 019184 100375 BP. at 
233 O1OIG6 117767 171116 171256 MOVE § @TKB, CRBUF ;CHAR IN READ BUFFER TQ CRBUF. 
s4 610174 104004 DATCHK :GO CHECK AGAINST S/B CHAR. 
e239 016176 000747 SR LTA : CON TINUE. 
2297 -PRGIO ROLE UP TEST 
232 THe FUNCT ON OF THIS TEST IS TO TEST THE ROLL-UP CAPABILITY 
5535 -TO DO THIS A LINE OF A CHARACTER. NO IT’S COMPLEMENT FOLLOWED 
230! ;BY A LINE OF THE COMPLEMENT AND 1 HARACTER tS TRANSMITTED 
2302 -THIS SCHEME IS EoNTINED TIL S cut tCY 15 1§ RAISE 
2303 - THE CHARACTER SHOUL HANGED UNTIL THE ae HAS BEEN 
e204 - COMPLETELY FILLED 
e208 010200 012767 177736 126 PRGIO: MOV e-42, TCHAR -INIT TEMP CHAR 
2307 010206 016767 o1¢8 o128 RENIT MOV TCHAR, CHAR : COMPLEMENT OF “!" 
e302 010214 012767 177669 OOO110 PRGIOC: MOV 8-80... CNT :72 CHAR/LINE 
2303 015222 167 600110 PRGIOD: COM CHAR 
2210 010226 618700 900104 PRG!IOA: MOV CHAR 9 -LOAD "2" 
2313 810032 604767 173720 JSR “7, LSPCH BUNCH 8" 
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000046 


090006 


900124 


17774%e 


177720 


177670 


PRGIIA: 


PRG1IS: 


PRGIIC: 


CUM CHAR -COMPLEMENT TO “?™ 
ye CHAR, % ifs er 

JSR 7 aL SP 4 “BUNCH “¢™ 

COM C , =e 

ADD #2, CNT ‘END OF LINE? 
BNE PRE10A -NO 

MOV ais % -CR 

JSR %?. LSPCH 

eos ai 

fel « 

+25 ar »-NEXT CHAR 
BPL RG1OC : 
2ES TCHAR -YES CHANGE TCHAR 

Mp b177677,TCHAR :CHAR STRING COMPLETE 
BEQ PRG! : 
3e REN! 
0 

42 
4] 
NON-PRINTING CHAR TEST 
TYPE -PRINT TEST TITLE 
NPC 5 
MOY #20. CCNT -CHAR COUNT 
MOV eA 20 :PRINTABLE CHARACTER 
ISR %7, LSPCH ‘PRINT PRINTABLE CHAR 
MOV #0, CNT -FIRST NON-PRINTABLE CHAR 
MOV CNT. «0 
ISR “7, LSPCH :PRINT NON-PRINTABLE CHAR 
INCB. Es CNT | | 
CMP 812, CNT “LINE FEED 
BNE PRGii8 :N 
MOY #13,%0 -PRINT NON-PRINTABLES 
JSR %7, LSPCH 
MOV #14 “0 
JSR %7, LSPCH 
MOV sa 16, CNT = : 
MOV. CNT,.%O -PRINT NEST SET OF NON-PRINTABLES 


DOS 
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2353 D1 0446 eet 1735 oY rs “7 ,LSPCH 
suze SiRBE BUSSPS ARS lomeuE a 

35§ 010464 1388 NE PRGIIC 

357 1g366 7 occoo4 EC CCN “DEC CHAR COUN 
fe i ce 132. NE PROLLA BRANCH IF _NOT Teno OF TEST 

‘ ‘ “ e) oF 

fe} ibe BB cewn: F oak ca 
2362 -PRG12, WORST CASE NOISE 
2363 : THIS PROGRAM READ IN DATA FROM THE KEYBOARD UNTIL (1) 
2364 *RUBOUT CHARACTER IS SENSED OR (2) UNTIL AN EI harac TER 
2365 *BUFFER IS FILLED. IT THEN ECHOS THE DATQ UNTIL at iS IS PUT UP. 
S35 010500 104000 PRG12: TYPE : TYPE PROGRAM TITLE 
2368 010502 011737 TCN 
2369 919508 104900 PRG12C: TYPE YPE 
es7o 4910506 O11764 RUBSO : RUQSUT OR 80 CHAR ENDS DATA 
237] 010510 912767 o00120 177760 ~~ MOV #80. CCNT -SET CHAR COUNT = 80 
e272 910518 12701 012105 MOV sDEND+2,R1 
2373 019522 105 170560 PRGIZA: TSTB aTKS -TEST FOR KEYBOARD DONE 
e374 Ci0S26 100375 SPL -4 
2375 010530 117711 170554 MOVB = @TKB, aR1 -LOAD CHAR INTO BUFFER 
2376 010534 111100 MOVE aR1,% “ECHO CHAR. 

377 019536 004767 172414 JSR “7, LSPCH 

378 910542 142711 Oo0e00 Bice =s-_s- we. (R11) :CLEAR UNWANTED BIT 
2379 ClOS46 122127 000177 CMPB (R1)+. 9177 -TEST FOR RUBOUT 
e380 610552 001402 Q PRG 128 -OUMP BUFFER IF END OF DATA 
238: 610554 605367 177716 EC CCNT -DECREASE CHAR COUN 
esee O10560 901360 BNE PRG120 i BRANCH IF NOT SS CHAR 
2383 019562 904767 o00CI0 PRG128: JSR %? , DUMP | BUFFER 
2384 O10S6E 005767 166776 TST SR’ -TEST FOR END ROUTINE 
2385 010572 1003°3 : BPL PRG128 -CONTINUE DUMP if NOT END 
2286 610574 BR PRG1EC -ASK FOR NEW DAT 
2388 019576 o12700 o00015 DUMP: MOV #15, %0 “CARRIAGE RETURN 
2389 010602 904767 173350 JSR %7, LSPCH 
2330 O10606 012700 o00012 MOV #12°%0 sLINE FEED 
235] g1061¢ 004767 173340 JSR %7,LSPCH 
2332 S106iS Ole702e O12! MOV #DEND+2, 82 -R2 = BEGINNING OF BUFFER 
e333 610622 112200 DMPA: MOVB  (Re)+,%0 iEETCH CHARACTER FROM BUFFER 
2394 O10624 094767 173326 JSR %7. LSPCH NT CHAR 

395 910630 2020 | CMP R2'R1 ‘TEST FOR END OF SUFFER 

336 010632 00137 BNE OMPA :BRANCH IF NOT END 
397 510634 000207 RTS “uP “END OF BUFFER: 
2296 
100 -PROGRAM 13, LAST CHARACTER VISIBILITY 

e 
02 010636 104000 PRG13: TYPE $TYPE TITLE OF TEST 

2403 O10640 012040 LCVIS | : 

e404 019642 Ole7&7 000120 177626 MOV #20.,CCNT . — ;SET CHAR COUNT = 80. 

e4ps 010650 012700 O00015 MOV eis 20) Ow Cw” Oh 

138 010654 767 173276 JSR “? (SPCH eee 

40? O10660 612700 O00012 MOV 812, %0. -LF 

eu0e O10664 04767 173266 JSR ~ “LSPCH 
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910670 a12700 o0010¢ PRGI3A: MOV 

7 is ee Be 
33 2600. 

010 367 177586 pet 

ahah " 8 a 


-_ ——- = eee —- —<——w e 


;LOAD_ TEST CHAR 
;PRINT 


;DELAY 2 SECONDS FOR 
sPRINT He HEAD a ad ASIDE 


Barn JF BR) 80 CHAR 
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10714 ou? 132 127 AB3WP6: .BYTE 047,137,127,057, 127,137 
é ‘ i ( 
107 047 133 O77 ASSWPE: .BYTE 047,133,077,103,077, 133 
197 103 077 133 
107 10} ide 103 a: .BYTE 101,102,103 
l l l 106 OD: “BYTE 104,105; 106 
010736 107 110 lll 6G: -BYTE 107,110,111 
Qt 74] 11g 113 114 J; Bvt 112,113,114 
10744 1] 116 117 M: “BYTE 115.116:117 
910747 120 121 122 P: .BYTE 120,121,122 
910 123 124 125 S: .BYTE 123.1 4,185 
10 Le6 Le? 130 V: -BYTE 126,127,130 
107 131 1 060 Y: -BYTE 131,132,060 
10763 061 062 053 ONE: .BYTE 061,062,063 
010785 064 065 OS6 FOUR: .BYTE 064,065,066 
019771 067 970 971 SEVEN: . BYTE 7,070,071 
510774 041 p42 043 C4l: “BYTE 941'042"043 
010777 044 O45 O46 C44: -BYTE 044,045. 
011992 047 950 051 C47: BYTE 047:050'0s1 
911005 0S2 053 054 CSe: BYTE 052,053.05 
11016 055 O56 057 ¢S5: BYTE 055,056,057 
91101 72 073 074 (672: BYTE 072,073,074 
O11016 975 078 077 (C75; TE 075,076,077 
0115¢! 1 133 134 ¢100: BYTE 100°133°134 
11024 1 136 137 ¢€135: BYTE 135:136;137 
011027 377 000 377 (377: .BYTE 377,000,377 
911036 p21445 oS0l23 041501 TBTST: .ASCII ‘xs#SPACE TESTxs’ 
011 Se O42 OS2le 
O1:046 o2144s 
011050 020040 o20040 O20040 TBMRK: .ASCII ° sy’ 
011056 o20040 940057 
011082 20040 520940 O2004C TBMRKI: .ASCII ° sa’ 
011970 27440 109 
911073 04s 109 CRLF: .ASCII °*xa’ 
011075 O55 o2645S5 O444SS RMS3A: ASCII °----Ja’ 
011102 100 | 
011103 O55 026511 100 RM33B: .ASCII ’-I-a’ 
011107 055 O2645S o444SS RM37A: ASCII ’----I-Ia’ 
811124 o444ss 100 
OL1117 134 940040 SPTSTC: .ASCII °\ 2’ 
§iii22 oe144S O40S03 oSi122 CRTIST: .ASCII 'x%s#CARRIAGE RETURN TEST%#2' 
011130 oO40S11 O42507 O51040 
O11136 105 051125 o20116 
011144 052123 02144 
011152 100 
011153 045 051043 04351! RMTST: .ASCII '%#RIGHT MARGIN TEST%s@’ 
011160 052110 O46440 051101 
O1liIS& oO44S507 020116 O4e2524 
011174 OS2123 21445 100 
011201 O45 OS1443 oO40S20 SPTST: .ASCII ‘*x“wSPACE TESTx#a’ 
011206 o42e503 O20040 Oo4e524 
Oll2l4 OSele3 O2144s 190 
Ollee2l O45 O46043 O47111 LFTST: .ASCII ‘X#LINE FEED TEST%#a’ 
Olles6 ceoios O4e508 O42105 
011234 52040 osisos O22se4 
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2473 Qlle4e J4HOO43 | 
2474 O11244 O2l44S 044103 .051101 CHRIST: .ASCII ‘*%#CHARACTER TESTS«#Q’ 
e475 O11 1501 O4eS 020122 
e476 ae 6 OSele3s OeeS23 
i¢ 
545 Olle 021445 047527 051522 WCPTST: .ASCII ‘%a#WORST CASE PATTERN TEST%#a’ 
2479 Qlle7& Oe01e4 OS03 O42eSe3 
e480 911304 O Q52101 O4eS24 
2481 At teks O4Y7lee O52040 051505 
e482 QO113 O2eSe4 040043 
2483 011324 O2l44S OS4513 O42102 KMSG1: .ASCII °%#skKYBD TEST%s#Q’ 
Q484 Ol11332 952040 051505 OeeSe4 
248S QO11340 O40043 
2486 Bt ta ye, O42See 051523 KMSG2: .ASCII *XPRESS A KEY WITHIN 10 SECONDS.a’ 
2487 011350 04 O¥S44Q OS4S05 . 
2488 011356 40 OS21li O44510 
2489 011364 020116 O02 051440 
e490 Q11372 O41505 047117 OS1S504 
Se Bt te 0055 r 
S2 011402 Gel44S 041505 047510 KMSG3: .ASCII °xs#ECHO TEST’ 
2493 011410 O 951505 124 ' 
Sao TRE 4S Ri aaee 3h 19h KMSG3SA: .ASCII *XCHARACTER KEYED WILL BE TYPED.’ 
Se GN push Reset Stik 
2437 O11436 044527 046114 041040 
2498 O11444 020105 0S4 042520 
2499 0114S2 027104 
2500 O114S4 051045 O4112eS5 052517 ~ASCII °**RUSOUT ENDS ROUTINE. %#Q"° 
2501 011462 QOe0le4 047105 OSISO4 
2S02 O11470 O51040 052517 O44Se4 : 
2503 QO11476 O42516 Oee4S& 040043 
2504 O11504 O2144S O41517 O40S24% KMSG4H: .ASCII *%SOCTAL EQUIVALENT TESTa’ 
250S Q11Sl2 020114 950505 O44525 
2506 011520 O40S26 O4eS14 052116 
eS07 Q115e6 . O40 O5150S O401e4 : 
2598 011534 d2004s KMSGS: ASCII '%* 
250$ 011536 0040 O2e0040 CYCO4S OCTEQV: .ASCII ° “9 
2510 Q11544 704S O20117 O4eS13 KMSG6: .ASCII °%NO KEYBOARD REQUEST. a’ 
2511 011552 041131 O405 042122 
2eSl2 9011560 042525 
2513 011566 52123 O40056 
25i4 011572 4S O46! O42Se3 KMSG7: .ASCII ‘°XFALSE KYBD INTERRUPTQ’ 
eSiS 011600 O O41131 020104 
e516 OQ116 047111 O% O0Slil2e2 
2517 911614 O50125 o40124 
2Si8 011620 Oel44S O44S04 O50123 P7MG1: .ASCII ‘*“s#sDISPLAY EXERCISER“sa@ 
£519 011626 040514 020131 054105 
2Se0 Oil 051105 O44S03 042523 
eSel OQOlleé4e O2eeSee 040043 
eSee 0116 Oel44S O54524 042520 P7NGe: .ASCII ‘*%sTYPE IN DATA :a’ 
2eSe3 011654 O44440 020116 040504 
e5e4 Olibbe O40524 035040 = 100 
eSeS 01166 1eS 040040 BKSU: .ASCII °U Q’ 
eSeb 011672 Oe0040 O2e0040 O40 DECVAL: .ASCII ° . 
eSe7 011677 Ree O47043 O47117 NPCT: .ASCII °*X#NON-PRINTING CHARACTER TEST%#a2’ 
SeB 011704 OS00SS O44See 052116 
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ate 
1$91 
042524 


944103 
042524 
0Sele3 
pei en! 

1501 
0S1S11 


WSTCN: 


RUBSO: 


LCVIS: 


DEND: 


.ASCIT 


-ASCIT 


-ASCIT 


. END 


HOS 


"”2@WORST CASE NOISEX 8d’ 


"*8TYPE DATA - RUBOUT OR 80 CHAR ENDS DATA%#a’ 


"*S8LAST CHARACTER VISIBILITY TEST%#a° 
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ozLcac.Pll CROSS REFERENCE TABLE -- USER SYMBOLS 
010730 S43. ISH?) ss1961)—Ss De 
sNy so. go4044 1420 1428 14388 
ACNVB Q004000 1419% 14238 
026 427% 14318 
NVM 60 144i@ 1449 
NVX 04 1437@ 1440e 1441 144Se 1446% 447% 
m% QO400§ 14268 2177 | 
ACNVE 003760 14188 
ADTENP 004306 1478 s«L4S78 
ARDA  O025S6 12058 1219 
ARDS 1206 12138 
AREAD  O02S4e 12038 lele2 
aro 004550 15S? 15608 
ATOA  OO4S566 1563. 156S5# 1567 
aTos  o04572 15668 1569 
ATOE O04576 1564 15698 
aT! 094602 1561 15718 
ATla  OO4620 1574. —s-«1576% «©1578 
QTIB  O04624 15778 1580 
ATIE  OO4630 - i575 =: 1579 
age 004634 1572 S928 
aT p046 1585 15878 1589 
aTeB 40s O04 15888 1591 
ATSE O04662 15868 1590s 
aTe4  oosos0 i623. s«16 368 
AT 99 1639S s«1B418 
aT 005110 1643 16468 
aTesc 695130 1645 1648 16508 1651 
ATSYE: 005104 16448 
ATSYES 005126 164S8 
ATeS 005134 1637 16538 
atesa 905152 1656 16588  1864- 
AT25B 005174 1661 16638 
ATSSE 005172 16628 
aga NO4E5E 1583. «15938 
GT3A 004704 1595 15988 1600 
AT3B ©: OON7 10 15998 1602 
AT2E 004714 1597 «16018 
AaT30 ©: OoS 200 1654 = 16678 
AT20A 005210 1670 16718 1675 
aT3208 005220 1672 «=. 16748 
AT2NE  O05216 16738 
6731 905224 1668 16778 
AT31Aa 005234 1680 16818 1689 
AT3iB 905260 1686 1689s 
AT31E  O05256 16878 
GT22 O05e64 1678 16918 
AT32Q 005274 1694 16958 1705 
AT30B 005322 1702 «=s«17048 
AT32E © 005320 17038 
AT323. 005326 1692 17088 
AT322q 005336 1711 17128 1721 
aT238 005 1718 17208 
AT3I3E 00536 17198 
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BT34A O054 1727 17308 1736 rs 
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ATSB 005044 
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ALST 004 
ASSWPE 010714 
ASSWPE 010722 
BCHECK 003360 
BOCNV Q04200 
BOCNVA OD4%220 
BELL = 000007 
BITO = 009000 
BIT! = 000002 
BTT10 = 002000 
BIT11 = 004000 
8ITie = 910000 
BIT13 = 020000 
BIT14 = 940000 
BIT1S = 100000 
BITe = O00004 
8IT3 = 000010 
BIT4 = 000020 
BITS = 000040 
BITE = 0001 
BIT7 = 000200 
BIT8 = 0004 


ono ~~ oer ae - 


13-MAY-7& 13:28 
CROSS REFERENCE TABLE -- USER SYMBOLS 


17358 


16318 


PAGE 62 


1633 


14348 


1438 


JOS 


e093 


2098 


1629 


2192 


1641 


e205 


1642 


2231 


1646 


1647 


1658 


i660 


MAIN, 
DZLCAC.P11 


BITS = 001000 


MACYLL 271732) 


892 
eSess 


—-— - _————_ — oer ee ere + 


13-MAY-76 


901% 


13:28 


PAGE 63 
CROSS REFERENCE TABLE -- USER SYMBOLS 


1838+# 


109S¢. 


ells 


12eS9* 
2182% 


1841 


e308% 


1341% 
2183 


1856 


KOS 


349 
1S44 


1531 
1356 


2404% 


231% 


1342 
ec0c# 


1860+ 


950 
1548 


1535 


C414% 
l 


23308 


2328s 


1353 
2203 


1870% 


951 


1551 


1S42 


2341% 


1355 
2e2lb% 


1873% 


1505 


e194 


1S46 


este 


1357 
2217 


1875% 


2344% 


1gss* 


1523% 


2208 


2206 


2345 


2157 
2269 


1900% 


23$1% 


2160% 
22e7e% 


1905% 


e3$2 


1920% 


~MAIN. MACYL1 27(732) 13-MAY-76 13:28 PAGE 64 
D2LCAC.P11 CROSS REFERENCE TABLE -- USER SYMBOLS 
19e4e 19e7e 1932e% 2125% e2146% 2198%  2200% 
CTRB 001466 101S# 1841% 1844* 1876% 1877 18gee 1939%  1952e% 
CTRC 1470 2 10168 1877% 1885%  1940% 1944s 
Kino 147e th 
T a 1826 3e% 
CT 604 18388 18 
CTOs 006052 1839 18418 
CTOC 1842s 
CTl 006120 183 18S2% 
CT1A O06 144 18S88 86 
CT10 006654 197 1976% 
CTll OO0&6$6 1977 19828 
CTle 006700 1983 1989% 
CT13 0067 le 1990 1995% 
CT14 724 1996 20028 
CTis 006736 2003 c0CS# 
CTi6 750 2009 c014s 
CTl? 006762 2015 2e020# 
CTe 006164 1853 18668 
CT2A 006202 1871% 
CTes 006222 18768 
CTec 006236 18778 1893 
CTeD 0062eS¢2 1883% =) 
CTce 006310 1890 1892% 
CTe0 $774 e0el 2026% 
CTel O6 e027 20328 
CTee 007020 2033 2038% 
CTe3 007032 2039 20448 
CTe4 007044 2045 20518 
CTes 7056 e0Se 2057 % 
CTeb 007070 e0S8 20638 
Cle? 007102 2064 20698 
CT3 006320 1867 1895% 
CT3A OG6344 19018 9093 
CT38 374 1906 1908% 
T 007114 2070 2075% 
CT31 126 2076 2081% 
CT2e 7140 2082 20908 
CT3eA 007164 e095# 2097 
CT32eB O07ele el00%e e 
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CT7 0066442 1965 19708 
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C135 011024 e084 e44e8 
C377 011027 24438 
C41 010774 2035 C4348 
C44 010777 2041 24358 
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C7 11016 
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DATCHK= 104004 
DATHLT= 104017 
DECVAL 011672 
DELAY = 104400 
DEND 12103 
DIGIT 302 
DLCNT Q03272 
DLY 3230 
DLYA 3250 
LYB 003254 
DMPA 01062e 
DTCHK 901520 
DTCHKA 001536 
DTHLT  Q01530 
DUMP 0105 
EHALT = 104016 
EHLT 1506 
EMTA 2300 
EMTINT O02254 
EMTTAB 9001400 
ERCTR 001462 
ERR 001540 
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ET2 007456 
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18638 
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NO 1732 «6©«:1750~—Cf's«é«dL?700—~—é‘«~L7BBo6oOEDda«a'7SBHB©—SCSLCOs—‘C‘éiéa2L08—Cé=«‘“«i210 : 
SET 1232 21 2240 3=-_ 224} 24 ee43 2°44 
ROL 1065 396-114 1158 6=s-s«de3G&C—<«ti‘é«C DD 124 1e41 1243 1244 
R: 1495 1446 ~~ 144? ; 
RTI 1023 =s-:1028 1938 1041 1046 10 1100 1164 # #168 1171 £41185 j4g198 1220 ©1227 @©1233 
1265 1268 127 1300 1318 #1322 #1329 Se 1795 2144 
RTS 1052 —s—sié«dtLeO0—t:iéi«zLdKBtiédAewW39)——<iéi‘é?®:~—~—<‘<é«é‘«iEOCOC‘«éKS®—“(<ésé‘«iaLHEY—:«—‘<éi‘idkzSSOCO8HSS13G1)Ssi1373)'si«13HL=Ssisa1390~—S—séi1:4107 
44158 3425 1433 1450 1461 £1465 £1474 #1484 #1493 {811 1824 1839 1854 1934 1964 
2520 as 2397 
Sus. 196) l 1994 1137 1149 1488 ~§8 1768 
TST 1048 1087 il 1161 1585 1576 #1587 198 1913 3197 211 249 2752 2284 
TST L118 1205 2e—Sfs«dL eS 14 3. 1471] 1671 1685 1701 #171 138 154 ise 174 214 
s? =e 286 «2S 229] 373 : 


-RBS 8S7 : : : 
-ASCIT 2444. e447 2449 2451 24Se 24S4 e455 2457 2458 2463 soa. + gg 2474 2478 2483 
e 8 eSee eSes eSe6 2S27 2S33 


BYTE 2418 e420 ccs e423 24240 242s e426 e427 e4e8 32429 2430 2431 e432 2433 2434 


ERRORS DETECTED: 9 
DEFAULT GLOBALS GENERATED: 0 


*DZLCAC DZLCAC/SOL CRF =2ZLCAC. Pil 
RUN-TIME: & 16 3 SECONDS 
RUN-TIME neritic: 94727=2.3 

CORE USED: 10K (19 PAGES) 
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